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potent selec: 
PRODUCT CODE:  AC-F933A-MC 
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DATE CREATED: APRIL 1980 
MAINTAINER: CX DIAGNOSTIC GROUP 
AUTHOR : MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A_ COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION A ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
OR ety OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1980 DIGITAL EQUIPMENT CORPORATION 
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1.0 INTRODUCTION 
1.1 ABSTRACT 

THE RMO5/3/2 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH 
USES FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE 
DISK SUBSYSTEM EXCLUDING AND INDEPENDENTLY OF THE STORAGE —— 
DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING. PURPOSES 

TO DETECT ERRORS AND FAULTS IN THE RM MASSBUS ADAPTER; 


TO RESOLVE HARDWARE FAILURES IN RM TO A FIELD REPLACEABLE 
MODULE OR MODULES. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS_ THE RMO5/3/2 DISK SUBSYSTEM, 
EXCLUDING THE STORAGE MODULE DISK DRIVE AND THE MASSBUS CONTROLLER. 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMO5/3/2 DISKLESS 
DIAGNOSTIC: 

PDP-11 PROCESSOR 

16K MEMORY 

KW11-L_ OR LW11-P CLOCK 

PROGRAM LOADING DEVICE 


TERMI 
RH11 OR RH70 CONTROLLER 
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5'S, RMO3'S OR RMO2'S) 


2.2 MEDIA REQUIREMENTS 
NONE 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
RMO5/3/2 DISKLESS DIAGNOSTIC, PART 1 


3.0 OPERATING PROCEDURE 
3.1 LOADING 
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THE PROGRAM MAY BE LOADED BY EITHER PAPER TAPE, USING THE 
STANDARD PAPER TAPE LOADING PROCEDURE, OR XXDP MEDIA, USING THE 
APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 
SWITCH IS ON. 


Sw15 HALT ON ERROR 
SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
SwW13 INHIBIT ERROR TYPEOUTS 


SW12 UNUSED 
SwW11 INHIBIT TEST ITERATIONS 
Sw10 BELL ON ERROR 


SwO9 LOOP ON ERROR 
Sw08 LOOP ON TEST IN Sw07-00 


THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8 TO SPECIFY 
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL LOOP ON. 


3.3 STARTING 


THE PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT VALUES OF 
ges Le AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. 


4.2 PROGRESS REPORTS 
= OF PASS REPORT OCCURRS EACH TIME THE PROGRAM IS EXECUTED 


FOR ADAPTERS IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.3 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 
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4.4 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.5 ERROR REPORTS 

THE RMO5/3/2 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR 
REPORTS INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE 
REFERENCES TO PROGRAM LISTINGS. 

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE UNIT NUMBER BEING 
TESTED, DRIVE TYPE, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 


THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
HE ERROR MESSAGE: He ERROR. LINES OF TEXT WHICH GIVE A 


ED BY ONE OR MORE AND 
LE atl teamed TO THE ERROR, INCLUDING EXPECTED AND ACTUAL TEST 


5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 
THE RMO5/3/2 DISKLESS DIAGNOSTIC IS EXECUTABLE UN ANY PDP-11 


oe PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


5.2 DUAL PORT CONFIGURATIONS 
THE RMO5/3/2 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RMO5/3/2 
SUBSYSTEMS HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH 7 


SET TO THE APPROPRIATE PORT (A ORB) AND NOT TO THE PR 
POSITION (A/B). 


5.3 MEMORY PARITY HARDWARE 


Y PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
THE RMOS/ 3/2 DISKLESS DIAGNGOSTIC. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RMO5/3/2 
DISKLESS DIAGNOSTIC. 


SEQ 0005 
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5.5 ACT11, APT11 COMPATIBILITY 
THE RMO5/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 


AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM WILL 
EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RMO5/3/2 a DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP 
IN DUMP AND CHAIN MODES, 


5.7 OPERATING SYSTEM COMPATIBILITY 


seston PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 


6.0 TEST DESCRIPTION 
THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
15 eae USES A MORE COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS 


MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 
NONTRANSIENT HARDWARE FAILURES. 


THE *RMO5/3/2_ DISKLES DIAGNOSTIC’’ CAN BE EXECUTED USING AN RH70 
OR AN RH11 MASSBUS CONTROLLER. 


UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE THE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 


THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS: 


IF 
CS 


DS 
MASSBUS MODULE 
THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 


TRANSFER TEST 
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PURPOSE : 

TO VERIFY a * THE RMO5/3/2 CAN COMPLETE A REGISTER TRANSFER 
ON THE MASSBUS, IN PARTICULAR, TO VERIFY THAT ‘‘TRANSFER’’ IS 
NOT STUCK IN AN INACTIVE STATE. 
PROCEDURE : 


THE PROGRAM WRITES AND READS REMOTE REGISTERS FOR THE 
SELECTED gor REGISTER CONTENTS AND PARITY ERRORS ARE 
IGNORED, THE TEST FAILS IF A ‘NONEXISTENT DEVICE ERROR'' OR 
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS. IF THE TEST FAILS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE 
NEXT DEVICE TO BE TESTED. 


PROBABLE FAULT: 

THE TEST i IF THE SELECTED DEVICE IS NONEXISTENT OR IS 
SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT. 
THE FOLLOWING FAULTS ARE APPLICABLE ONLY wiifiw THE DEVICE IS 
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 

1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


3. CS MODULE 


TEST 
PURPOSE : 


TO. VERIFY THAT DATA CAN BE yo Ary TO AND FROM THE 
RMO5/3/2 USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT 
"CONTROLLER TO DEVICE’’ HAS NOT FAILED. 

PROCEDURE : 

THE TEST WRITES ONES IN REMOTE REGISTERS THEN wee gs 

REGISTER WHICH WILL a ZEROS IN THE REGISTER IF ‘'IF3 C 

H"' IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 

PROBABLE FAULT: 

1. IF MODULE 


2. ASYNCHRONOUS MASSBUS MODULE 


SEQ 0007 
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MASSBUS INITIALIZE TEST 
PURPOSE : 


TO gy THAT THE MASSBUS ADAPTER IS BEING 


THE MASS BUS 
PROCEDURE : 


INITIALIZED BY 


USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS 
TEST THEN READS MASSBUS ADAPT = REGISTERS TO VERIFY THAT AT LEAST 
ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 


NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 
PROBABLE FAULT: 

1. ASYNCHRONOUS MASSBUS MODULE 

2. IF MODULE 

3. CS MODULE 


CLEAR STUCK ACTIVE TEST 
PURPOSE : 


TO VERIFY THAT ‘MBA CLR L*’ ON THE CS MODULE IS NOT STUCK IN 


AN ACTIVE STATE. 
PROCEDURE : 


CONTROLLER CLEAR IS USED TO INITIALIZE atl SELECTED UNIT, 


AFTER WHICH 1°S ARE WRITTEN IN _ ERROR 


GISTERS 1 AND 2 AND 


MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 
IS OK, ELSE, ‘MBA CLR L'’ IS PROBABLY STUCK ACTIVE. 


PROBABLE FAULT: 

1. CS MODULE 

2. IF MODULE 

3. ASYNCHRONOUS MASSBUS MODULE 


TRISTATE TRANSFER TEST 
PURPOSE : 
TO VERIFY THAT THE PATH TO AND FROM THE 


MASSBUS ADAPTER 


SEQ 0008 
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TRI“STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 
BIT POSITION IS INDEPENDENT. 


PROCEDURE : 
THIS TEST PRESETS MASSBUS ADAPTER REGISTERS TO A _ NONZERO 
VALUE, THEN, ASSUMING THE REGISTERS ARE PRESET, IT CLEARS THEM 


USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 
Position NECESSARY TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 


THE TEST CLEARS MASSBUS ADAPTER REGISTERS, THEN, ASSUMING 
THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS 
MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 
EACH BIT POSITION. 

FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT O 
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE 
READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 
BIT POSITIONS. 
PROBABLE FAULT: 
1. ASYNCHRONOUS MASSBUS MODULE 
2. IF MODULE 
3. CS MODULE 
4 


DS MODULE 


REGISTER SELECT TEST 


PURPOSE : 


TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A_ STUCK 
POSITION. 


PROCEDURE : 


EACH REGISTER SELECT LINE IS vesice BY WRITING ZEROS IN 

ait DEVICE REGISTERS FOR WHICH THE LINE MUST BE yt Re, 

WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE .1UST BE 

ONE. . THE ZERO REGISTER IS READ BACK AND IF THE SELECT LINE IS 

STUCK ‘AT ZERO, THE ZERO REGISTER WILL CONTAIN ONES. THE PROCESS 

1S_ REPEATED TO DETECT A ST ae AT ONE FAULT, EXCEPT IN THIS CASE, 
THE ONES REGISTER IS WRITTEN FIRST. 

T 


REGISTER SELECT LINES 1, 2, AND 8 ARE TESTED IN THIS 
MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE “‘ILR TEST"’. 


PROBABLE FAULT: 
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1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


DRIVE TYPE TEST 
PURPOSE : 
TO TEST THE ‘DRIVE TYPE’’ REGISTER, RMDT. 
PROCEDURE : 


THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT 
CORRESPONDS TO A SINGLE OR DUAL PORT RMOS, RMO3 OR RMO2 DRIVE 


PROBABLE FAULT: 
1. IF MOULE 


DEVICE AVAILABLE TEST 
PURPOSE : 
TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
PROCEDURE : 
THE PROGRAM TESTS ‘DVA'’,BIT 11 OF RMCS1. 
PROBABLE FAULT: 
1. IF MODULE 


SEARCH TIMEOUT TEST 
PURPOSE : 


TO VERIFY THAT THE SEARCH TIMEOUT ONE SHOT SETS ‘OPI"', 
EXCEPT WHEN ‘SEARCH TO DISABLE’ IS ACTIVE. 


PROCEDURE : 


WITH a iene DISABLED, THE TEST gy: A DATA 
COMMAND TO THE POINT WHERE ‘P ENABLE SEARCH’ IS ASSERTED. 
AFTER WAITING A SUFFICIENT PERIOD AND VERIFYING THAT OP] 


SEQ 0010 
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IS NOT SET, THE TEST ENABLES SEARCH TIMEOUT AND VERIFIES 
THAT OPI SETS. 


PROBABLE FAULT: 
1. CS MODULE 
NOTE: IT_IS_ ASSUMED THAT THE ‘'SET OPI TEST** HAS 


ALREADY PASSED, THUS MAKING THE IF MODULE 
AN IMPROBABLE FAULT. 


SET DTE TEST 


PURPOSE : 


IN ADDITION TO VERIFYING THAT ‘DRIVE TIMING ERROR’’ CAN 
BE SET BY THE CS MODULE, THIS TEST ALSO VERIFIES 


* _THAT ‘MAINTENANCE SECTOR COMPARE’’ IS NOT STUCK AT ONE 
OR ZERO. 


* THAT "ENABLE SFARCH’' IS NOT STUCK AT ONE OR ZERO. 
PROCEDURE : 


(1)__ INITIALIZE AND VERIFY THAT ‘DTE’’ IS RESET, THEN 
SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE IS STILL 
RESET. THIS TEST WILL INSURE THAT THE SECTOR COMPARE FLOP 
IS NOT STUCK AT ONE. 


(2)_ EXECUTE A DATA COMMAND IN ame re aan TO 
THE POINT WHERE SEARCH IS ENABLED, I.E., P EN SEARCH H IS 
IS ACTIVE. SET AND RESET THE SECTOR PULSE 10. SET "‘CS3 EN 
SEARCH’’ FLOP, AND CLOCK ‘CSS SECTOR COMPARE'’ FLOP WHICH 
SHOULD NOT SET. SET SECTOR PULSE AND VERIFY THAT DTE Ts 
a: Ealien ak oud a FAILS IF J INPUT TO SECTOR COMPARE FLOP 


REPEAT, BUT SET MAINTENANCE SECTOR COMPARE AND VERIFY 
THAT DTE SETS. THIS TEST FAILS IF MAINTENANCE SECTOR 
COMPARE IS STUCK AT ZERO. 

PROBABLE FAULT: 
1. CS MODULE 


2. DS MODULE 


FORMAT CHANGE TEST 
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PURPOSE : 


TO VERIFY THAT A CHANGE IN FORMAT INHIBITS SEARCH 
ENABLE UNTIL THE NEXT INDEX PULSE. 


PROCEDURE : 


vy hie WILL USE 'DTE’’ FOR VISIBILITY OF ‘'CS3 EN 
SEARCH 


THE FOLLOWING STEPS ARE EXECUTED: 


(1) _ INITIALIZE te SET THE FORMAT TO 18 BIT MODE 
TO SET ‘'CS3 FMT CHANGE'’ FLOP. 


(2)__ EXECUTE A DATA COMMAND TO THE POINT WHERE SEARCH 
IS ENABLED BY THE SEQUENCER. 


(3) SET “MAINTENANCE SECTOR COMPARE’, THEN SET 
"MAINTENANCE SECTOR PULSE’ TO CLOCK ‘'CS3 EN SEARCH’’ FLOP 
WHICH SHOULD NOT SET BECAUSE OF THE FORMAT CHANGE. 


(4) RESET SECTOR PULSE TO CLOCK ‘CSS SECTOR COMPARE"' 
FLOP WHICH WILL NOT SET IF ‘'CS3 EN SEARCH H’’ IS INACTiVE. 


(5) SET SECTOR PULSE AND VERIFY THAT DRIVE TIMING 
ERROR IS RESET. 


(42 SET AND RESET INDEX PULSE TOCLEAR THE FORMAT 
CHANGE FLOP. 


(7) SET AND RESET SECTOR PULSE TO SET ‘‘CS3 EN SEARCH’ 
FLOP AND ‘CSS SECTOR COMPARE'* FLOP. 


(8) SET SECTOR COMPARE AND VERIFY THAT DTE IS SET. 


REPEAT THE TEST WITH A FORMAT CHANGE FROM 18 BIT MODE 
TO 16 BIT MODE. 


PROBABLE FAULT: 
1. CS MODULE 


STROBE TEST 
PURPOSE : 


TO VERIFY THAT WORD CLOCK AND PROM STROBE CAN BE MANIPULATED 
IN MAINTENANCE MODE. 


PROCEDURE : 





SEQ 0012 
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SYNC 


SYNC 


INITIALIZE AND SET 16 BIT MODE, THEN SEQUENCE THE 
MAINTENANCE CLOCK UNTIL PROM STROBE SETS. UE == MORE 
MAINTENANCE CLOCK PULSES AND VERIFY THAT PROM STROBE RESETS. 
PROBABLE FAULT: 

1. CS MODULE 


2. DS MODULE 


WORD COUNT INHIBIT TEST 
PURPOSE : 

TO VERIFY THE FOLLOWING DURING READ COMMAND: 
* THAT *'CS4 P LFS'' (LOOKING FOR SYNC) GOES ACTIVE. 
* THAT “LOOKING FOR SYNC’* INHIBITS THE WORD COUNT 
PROCEDURE : 


AD COMMAND IS SETUP AND EXECUTED io ty “a 
WHERE LOOKING FOR SYNC'’ SHOULD BE ACTIVE, —- 


THE 
PROGRAM THEN SUPPLIES A SERIES OF BIT CLOCKS AND VERIFIES 
THAT ‘PROM STROBE’' NEVER GOES ACTIVE. 


PROBABLE FAULT: 
1. CS MODULE IF LFS FAILT, 
2. DS MODULE IF PROM STROBE FAILS. 


DETECTION TEST 
PURPOSE : 


TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS 
RECOGNIZED. 


PROCEDURE : 
THE TEST EXECUTES A_READ COMMAND IN MAINTENANCE MODE, 


USING BIT 10 OF THE MAINTENANCE REGISTER (RMMR1) TO SIMULATE 
THE SYNC BIT STREAM, AND USING PROM STROBE TO DETERMINE 


. IF THE SYNC PATTERN HAS BEEN DETECTED. 


THE SYNC PATTERN 1S-99021001, WITH THE LEFT MOST 


SEQ 0013 
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BIT REPRESENTING THE LAST BIT OF THE STREAM. 
PROBABLE FAULT: 

1. DS MODULE 

2. CS MODULE 


ABORT SYNC DETECTION TEST 


SYNC 


PURPOSE : 


TO VERIFY THAT "WORD COUNT INHIBIT'' IS RESET IF A 
"DRIVE TIMING ERROR'' OCCURS DURING SYNC DETECTION. 


PROCEDURE : 

A READ COMMAND IS INITIATED IN MAINTENANCE MODE. WHEN 
""OOKING FOR SYNC'' GOES ACTIVE, THE TEST FORCES A DRIVE 
TIMING ERROR AND USES PROM STROBE TO VERIFY THAT ‘WORD 
COUNT TNHIBIT’’' HAS BEEN RESET. 

PROBABLE FAULT: 


1. DS MODULE 


GENERATION TEST 
PURPOSE : 


TO VERIFY THAT THE APPROF E SYNC PATTERN IS 
GENE 2ATED DURING A FORMAT OPER 


PROCEDURE : 

THE TEST EXECUTES A WRITE HE. wE® ww DAVA “OMMAND 
IN MAINTENANCE MODE, AND VERIFIES THA: * 'E CORR CT SYNC 
PATTERN IS GENERATED BY MONITORING WRITE DATA Al THE MAIN- 
TENANCE REGISTER (RMMR1). 
PROBABLE FAULT: 


1. DS MODULE 


WRITE HEADER TEST 


SEO 0014 
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PURPOSE : 


TO TEST THE OPERATION OF (1) THE DATA BUFFER AND SHIFT 
REGISTER AS WELL AS (2) THE ECC GENERATION DURING WRITE. 


PROCEDURE : 

A_WRITE HEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE 
MODE. THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE 
REGISTER ER USING THE WRITE DATA BIT OF THE MAINTENANCE 


AN RMO2/3_ USES CYLINDER 822., TRACK 4., SECTOR 31. AND 
16 BIT FORMAT FOR THE TEST, WHICH CORRESPONSE TO THE FOLLOWING: 


HEADER: 
WORD 1 = 1101001100110110 
WORD 2 = 0000010000011111 


RMOS USES CYLINDER 822., TRACK 18., SECTOR 31. AND 
16 BIT FORMAT FOR THIS TEST, WHICH CORRESPONSE TO THE FOLLOWING: 


HEADER: 
WORD 1 = 1101001100110110 
WORD 2 - 0001001000011111 
PROBABLE FAULT: 
1. DS MODULE OR MASSBUS MODULE 


HEADER COMPARE TEST 
PURPOSE : 


TO CHECK THE OPERATION OF (1) THE SHIFT REGISTER AND 
eee BUFFER AS WELL AS THE (2) CRC GENERATOR DURING 


PROCEDURE : 


THE TEST EXECUTES A READ HEADER AND DATA C 


OMMAND IN 
MAINTENANCE MODE USING BIT 10 OF THE MAINTENANCE + te 


(RMMR1) TO SIMULATE THE DATA BITS FOR THE FIRST AND SECOND 


HEADER WORDS AS weit AS_THE CRC CHARACTER. THE CRC CHARACTER IS 


IS FAULTED, AND THE TEST VERIFIES THAT A CRC ERROR IS oe TaN Tee 


ADDITIONALLY, THE TEST VERIFIES THAT HEADER WORDS ONE AND T 
ARE CORRECTLY TRANSFERD TO ME 


MORY. 
THE TEST USES THE SAME HEADER AS IN THE PREVIOUS TEST EXCEPT 


Re 
D 2 
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742 THAT BIT 15 IS INVERTED. 

oe PROBABLE FAULT: 

a6 1. DS OR IF MODULE IF CRC ERROR NOT DETECTED; 

P48 2. DS OR MASSBUS MODULE IF DATA INCORRECT 

750 

751 

752 

753 

034 ECC GENERATION TEST 

036 PURPOSE : 

58 TO CHECK ECC OPERATION DURING WRITE. 

760 PROCEDURE : 

762 A WRITE DATA COMMAND IS EXECUTED IN MAINTENANCE 

763 MODE. ALL ONES DATA FIELD IS USED, AND THE TEST VERIFIES 
764 THE ECC CHARACTER VIA THE WRITE DATA BIT OF THE MAINTENANCE 
63 REGISTER. THE DATA FIELD IS NOT VERIFIED. 

767 PROBABLE FAULT: 

768 

769 1. DS MODULE 

770 

771 

772 

773 

774 

775 ECC DETECTION TEST 

776 

add PURPOSE : 

o9 TO CHECK THE ECC GENERATION DURING READ. 

781 PROCEDURE : 

783 THE TEST EXECUTES A READ DATA COMMAND IN MAINTENANCE 
784 MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER THE LAST DATA 
785 WORD IS FAULTED. 

787 THE TEST VERIFIES (1) THAT AN ECC ERROR IS DETECTED 
788 AND THAT (2) THE POSITION AND PATTERN REGISTERS ARE VALID. 
790 PROBABLE FAULT: 


792 1. DS MODULE 
793 





SEQ 0016 
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;PROGRAM VERSION #001 

- TITLE ae es RMO5/3/2 DSKLS TST 2 
>*COPYRIGHT (C) 1980 

> *DIGITAL LOUSPMENT CORP. 

:*MAYNARD, MASS. 01754 

+ 

: *PROGRAM BY MIKE LEAVITT 


ieTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC=11=DZQAC-C4), 1980. 


*SBTTL OPERATIONAL SWITCH SETTINGS 


** 

:* SWITCH USE 

“x + _+<(j _— mmaeem—m ée##$ 4. esses ees eseeeeesesaseesaan 
7* 15 HALT ON ERROR 

3* 14 LOOP ON TEST 

tied 13 INHIBIT ERROR TYPEOUTS 
3* 11 INHIBIT ITERATIONS 

;* 10 BELL ON ERROR 

7* 9 LOOP ON ERROR 

7* 8 LOOP ON TEST IN SWR<7:0> 
:* 7 ™N128 

7* 6 TN64 

3* 5 TN32 

7* 4 ™N16 

3* 3 TN8 

:* 2 TN4 

:* 1 TN2 

3* 0 T™N1 


-SBTTL BASIC DEFINITIONS 
SS ele "oe OF THE STACK POINTER *** 1100 **x 


TACK = 

ERROR = EMT : BASIC DEFINITION OF ERROR CALL 
SCOPE = IOT :;BASIC DEFINITION OF SCOPE CALL 

; *MISCELLANEOUS DEFINITIONS 
HT = 11 :;CODE FOR HORIZONTAL TAB 
LF = 12 :2:CODE FOR LINE FEED 
CR = 15 +3 CODE FOR CARRIAGE RETURN 

CRLF = 200 CODE FOR CARRIAGE RETURN-LINE FEED 
<3 i = 177776 > PROCESSOR STATUS WORD 
STKLMT = 177774 +: STACK LIMIT REGISTER 

IRQ = 177772 :PROGRAM INTERRUPT REQUEST REGISTER 
SWR = 177570 ;;HARDWARE SWITCH REGISTER 
DDISP) = 177570 2 ;HARDWARE DISPLAY REGISTER 

3 *GENERAL PURPOSE REGISTER DEF INITIONS 
RO = %0 ae RAL REGISTER 
R1 = 21 ::GENERAL REGISTER 
R2 = ke +e NERAL REGISTER 
R3 = %3 ; GENERAL REGISTER 
R4 = %4 GENERAL REGISTER 


SEQ 0017 
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BASIC DEFINITIONS SEQ 0018 
000005 R5 = 75 3;GENERAL REGISTER 
000006 R6 = %6 3;GENERAL REGISTER 
000007 R7 = %7 3;GENERAL REGISTER 
000006 SP = %6 33;STACK POINTER 
000007 PC = <7 33PROGRAM COUNTER 

;*PRIORITY LEVEL DEFINITIONS 
PRO = 0 ;zPRIORITY LEVEL 0 
0 PRY = 40 szPRIORITY LEVEL 1 
000100 PR2 = 100 z:PRIORITY LEVEL 2 
000140 PR3 = 140 7zPRIORITY LEVEL 3 
200 PR4 = 200 szPRIORITY LEVEL 4 
000240 PRS = 240 7zPRIORITY LEVEL 5 
300 PR6 = 300 szPRIORITY LEVEL 6 
000340 PR7 = 340 :zPRIORITY LEVEL 7 
:*' SWITCH REGISTER'’ SWITCH DEFINITIONS 
100000 Sw15 = 100000 
040009 SwW14 = 40000 
020000 Sw13 = 20000 
010000 Sw12 = 10000 
000 Sw11 = 4000 
002000 Sw10 = 2000 
001000 Sw09 = 1000 
00 Sw08 = 400 
000200 Sw07 = 200 
000100 Sw06 = 100 
000040 Sw05 = 40 
000020 SWO04 = 20 
000010 Sw03 = 10 
000004 Sw02 = 4 
000002 Sw01 =2 
000001 Swoo = 1 
001000 Sw9=SwW09 
000400 SW8=Sw08 
000200 SW7=SW07 
000100 SW6=S 
000040 SWw5=Sw05 
000920 W4= 
000010 SW3=Sw03 
000004 SW2=SW02 
000002 SwW1=Sw01 
000001 Sw0=S 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15 = 100000 
040000 BIT1 = 40000 
020000 BIT13 = 20000 
010000 BIT12 = 1 
004000 BIT11 = 4000 
002000 BIT10 = 2000 
001000 BIT = 1000 
000400 BITO8 = 400 
000200 BITO7 = 200 
000100 BIT = 100 
000040 BITOS = 40 
000020 BIT04 = 20 
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BASIC DEFINITIONS 


000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
689 
690 
691 
692 
693 
694 004000 
695 000040 
000020 
697 000010 
698 000004 
699 000002 
000001 
701 000077 
702 
703 
704 000000 
705 000002 
706 000004 
707 000006 
708 000010 
000012 
710 000014 
711 000016 
712 000020 
713 000022 
714 000022 
715 000024 
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BITO=81T00 
:*BASIC ' ed * TRAP VECTOR _ADDRESSES 


ERRVEC = OUT AND OTHER ERRORS 

RESVEC = 10 : RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC = 14 7:'T'' BIT 

TRTIVEC = 14 7: TRACE TRAP 

BPTVEC = 14 ; 3BREAKPOINT TRAP (BPT) 

IOTVEC = 20 NPUT/OUTPUT TRAP (IOT) **SCOPE** 
VEC = 24 +: POWER FAIL 

EMTVEC = 30 ; EMULATOR TRAP (EMT) **ERROR** 

TRAPVEC = 34 33° ** TRAP 

TKVEC = 60 3: TTY KEYBOARD VECTOR 

TPVEC = 64 zz TTY PRINTER VECTOR 

PIRQVEC = 240 3 PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL RM REGISTER BIT DEFINITIONS 
2*RMCS1 CONTROL STATUS REGISTER 


DVA = BIT11 DEVICE AVAILABLE-READ ONLY 
F4 = BITOS FUNCTION CODE 

F3 = BITO4 FUNCTION CODE 

Fe = BITO3 FUNCTION CODE 

Fl = BITO2 FUNCTION CODE 

FO = BITO1 :FUNCTION CODE 

GO = BITOO :GO BIT 

FNCMSK = 000077 FUNCTION CODE MASK 
:FUNCTION CODES (BITS 01-05 OF RMCS1) 

NOP = 000000 COMMAND 

ILFO2 = 000002 > ILLEGAL COMMAND 

SEEK = 000004 SEEK COMMAND 

RECAL. = 000006 sRECALIBRATE COMMAND 
DRVCLR = 000010 DRIVE CLEAR COMMAND 
RLEASE = 000012 ;RELEASE COMMAND 

OFFSET = 000014 :OF FSET COMMAND 

RTC = 000016 RETURN TO CENTERLINE COMMAND 
RIP = 000020 READ IN PRESET COMMAND 
PAKA = 000022 PACK ACKNOWLEDGE COMMAND 
PACACK = PAKACK 

ILF24 = 000024 : ILLEGAL COMMAND 


SEQ 0019 
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720 000030 ILF30 = 000030 ILLEGAL COMMAND 
000032 ILF32 = 000032 ILLEGAL COMMAND 
000034 ILF34 == 000034 ILLEGAL COMMAND 
000036 ILF36 == 000036 ILLEGAL COMMAND 
000040 ILF40 == 000040 ILLEGAL COMMAND 
000042 ILF42 == 000042 ILLEGAL COMMAND 
000044 ILF44 = 00004 ILLEGAL COMMAND 
000046 ILF46 == 000046 : ILLEGAL COMMAND 
721 000050 wCD = 000050 sWRITE CHECK DATA COMMAND 
722 000052 WCH = 000052 WRITE CHECK HEADER AND DATA 
723 000054 ILF54 = 000054 ILLEGAL COMMAND 
724 000056 ILF56 == 000056 ILLEGAL COMMAND 
725 000060 = 00006 WRITE DATA COMMAND 
726 000062 = 00006 WRITE HEADER AND DATA COMMAND 
727 000064 ILF64 = 000064 ILLEGAL COMMAND 
728 000066 ILF66 = 0000 : ILLEGAL _COMMAND 
729 000070 RD = 000070 READ DATA COMMAND 
730 000072 RH = 00007 READ HEADER AND DATA COMMAND 
731 000074 ILF74 == 000074 ILLEGAL COMMAND 
ie 000076 ILF76 == 000076 ILLEGAL COMMAND 
ore :*RMDA DISK ADDRESS REGISTER 
736 TRACK ADDRESS DEFINITIONS 
737 010000 TA16 = BITI2 ; TRACK ADDRESS 16. 
738 000 TA8 = BIT11 TRACK ADDRESS 8. 
739 002000 TAS = BIT10 : TRACK ADDRESS 4 
740 001000 TA2 = BITO9 : TRACK ADDRESS 2 
mes 00 TAl = BIT08 : TRACK ADDRESS 1 
743 SECTOR ADDRESS DEFINITIONS 
044 000020 SA16 = BIT04 SECTOR ADDRESS 16. 
745 000010 SA8 = BITO3 SECTOR ADDRESS 8. 
746 000004 SA4 = BITO2 SECTOR ADDRESS 4 
747 000002 SA2 = BITO1 ECTOR ADDRESS 2 
foe 000001 SA1 = BITOO ; SECTOR ADDRESS 1 
750 z TRACK & SECTOR MASKS 
751 177400 TADMSK = 177400 ; TRACK ADDRESS MASK 
36 000377 SADMSK = 000377 SECTOR ADDRESS MASK 
cee 7*RMDS DRIVE STATUS REGISTER 
756 100000 ATA = BIT15 zATTENTION ACTIVE 
757 040000 ERR = BIT14 : COMPOSITE ERROR 
758 020000 PIP = BIT13 POSITIONING IN PROGRESS 
759 010000 MOL = BIT12 MEDIUM e LINE 
760 000 WRL = BIT11 WRITE L 
761 002000 LBT = B1T10 :LAST BLOCK TRANSF ERRED 
762 001000 PGM = BITO9 ; PROGRAMMABLE 
763 000400 DPR = BITO8 :DRIVE PRESENT 
764 000200 DRY = BIT07 DRIVE READY 
765 000100 vv = BIT VOLUME VALID 
266 1 OM = BITOO 3 OF FSET MODE ACTIVE 
768 ;*RMER1 ERROR REGISTER #1 





SEQ 0020 
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DCK = BIT15 ;DATA_CHECK ERROR 

UNS = BIT14 :DRIVE_UNSAFE 

OPI = BIT13 OPERATION INCOMPLETE 
DTE = BITI2 :DRIVE TIMING ERROR 

WLE = BIT11 WRITE LOCK ERROR 

IAE = BIT10 : INVALID ADDRESS ERROR 
AOE = BITO9 sADDRESS OVERFLOW ERROR 
HCRC = BITO8 ;HEADER CRC ERROR 

HCE = B1T07 :HEADER COMPARE ERROR 
ECH = BITO6 :ECC_‘'HARD*’ ERROR 

WCF = BITO5 WRITE shake FAILURE 
FER = BITO4 T ERROR 

PAR = BIT03 ‘PARITY ERROR 

RMR = BITO2 REGISTER MODIFICATION REFUSED 
ILR = BITO1 SILLEGAL REGISTER 

ILF = BITOO ; ILLEGAL FUNCTION 
NDTMSK = DCK!DTE!WLE!AOE!HCRC!HCE!ECH! WCF FER 

:" NDTMSK*' IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA 
>COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 
:*RMAS ATTENTION SUMMARY REGISTER 

ATNMSK = 377 MASK FOR ATTENTION BITS 
:*RMLA LOOK AHEAD REGISTER 

SC4 = B1T10 SECTOR COUNT = 16 

SC3 = BITO9 SECTOR COUNT = 8 

SC2 = BITO8 SECTOR COUNT = 4 

SC1 = BIT07 SECTOR COUNT = 2 

sco = BITO6 ;SECTOR COUNT = 1 
SCTMSK = 003700 SECTOR COUNT MASK 
:*RMMR1 MAINTENANCE REGISTER #1 

:;WRITE ONLY BITS 

DBCK = BIT15 DEBUG CLOCK 

DBEN = BIT14 DEBUG CLOCK ENABLE 
DEBL = BIT13 : DIAGNOSTIC tr OF BLOCK 
DTO = BITI2 ; DIAGNOSTIC TIMEOUT 
MCLK = BIT11 MAINTENANCE CLOCK 

MRD = BIT10 ?READ DATA 

MUR = BITO9 UNIT READY 

MOC = BITO8 :0N_CYLINDER 

MSER = BIT07 ;SEEK_ERROR 

MDF = BIT DRIVE FAULT 

MS = BITOS SECTOR PUL 

MwP = BITO3 :WRITE PROTECT 

MI = BITO2 ; INDEX 

MSC = BITO1 SECTOR COMPARE 

DMD = BITOO DIAGNOSTIC MODE 

zREAD ONLY BITS 


= BIT OCCUPIED 
= BIT14 ;RUN AND GO 


SEQ 0021 
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827 020000 EBL = BIT13 END OF BLOCK 
828 010000 REX = BIT12 EXCEPTION 
004000 ESRC = B1T11 sENABLE SEARCH 
830 002000 PLFS = BIT10 sLOOKING FOR SYNC 
831 001000 ECRC = BITO9 sENABLE CRC OU 
832 000400 PDA = BITO8 DATA _AREA 
833 000200 PHA = BITO? HEADER AREA 
34 000100 CONT = B1T06 ; CONTINUE 
835 000040 wC = BITO5 WORD CLOC 
36 000020 EECC = BITO4 7 ENABL 
837 000010 MwD = BITO3 :WRITE DATA BIT 
000004 LS = BITO2 sLAST SECTOR 
839 000002 LST = BIT01 LAST SECTOR AND TRACK 
840 000001 DMD = BITOO ;DIAGNOSTIC MODE 
eto 051401 MRIAAA = DMD!MUR!DBEN!MOC!DTO 
Bez :*RMDT DRIVE TYPE REGISTER 
845 100009 NSA = BIT15 NOT SECTOR ADDRESSED = 0 
846 040000 TAP = BIT14 :TAPE DRIVE = 0 
847 020000 MOH = BIT13 sMOVING HEAD = 1 
ae 004000 DRQ = BIT11 DRIVE REQUEST REQUIRED 
850 020024 SNGPRT = 020024 SINGLE PORT DRIVE TYPE 
Be5 024024 DULPRT = 024024 DUAL PORT DRIVE TYPE 
Bea :*RMOF OFFSET REGISTER 
855 010000 FMT16 == BIT12 2:16 BIT WORD FORMAT 
856 004000 ECI = BIT11 ECC INHIBIT 
857 002000 HCI] = BIT10 ; HEADER 5 Ais INHIBIT 
858 000200 OFD = BITO7 SOFFSET FORWARD 
HH 161577 XNUOF = 161577 :UNSED BITS OF RMOF 
Be) :*RMDC DESIRED CYLINDER ADDRESS REGISTER 
863 001777 CYLMSK = 001777 MASK FOR CYLINDER ADDRESS 
eee 176000 XNUDC = 176000 :UNSED BITS OF RMDC 
aoe 2 *RMMR2 MAINTENANCE REGISTER 42 
868 a ONLY BITS 
869 100000 = BIT15 PORT A REQUEST 
870 040000 ROB = BIT14 PORT B REQUEST 
871 020000 TAG = BIT13 2 TAG CONTROL 
872 010000 TST = BITI2 COMMAND SEQUENCE TEST BIT 
73 004000 CC = BIT11 [CONTROL OR CYLINDER TAG 
874 002000 CH = B1T10 CONTROL OR HEAD TAG 
877 001000 BB09 = BITO9 TAG BUS 
000400 BB08 = BITO8 :TAG BUS 
000200 BB07 = BITO7 :TAG BUS 
000100 BB06 = BIT06 : TAG BUS 
000040 BB05 = BITOS TAG BUS 
000020 BB04 = BIT04 : TAG BUS 
000010 8803 = BITO3 : TAG BUS 
000004 8802 = BITO2 : TAG BUS 
000002 8801 = B1T01 : TAG BUS 





SEQ 0022 
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ILRG76 


IDXMSK 
- SBTTL 
:*RMCS1 


= BITOO : TAG BUS 

ERROR REGISTER 2 

= BIT15 BAD SECTOR ERROR 

= BIT14 :SEEK INCOMPLETE 

= BIT13 ; TOR PLUG ERROR 

= BIT12 : INVALID C R 

= BIT11 :LOSS OF SYSTEM CLOCK 

= BIT10 ;LOSS OF BIT CLOCK 

= BIT07 DEVICE CHEC 

= BITO3 :DATA PARITY ERROR 

= 001567 ;UNSED BITS OF RMER2 
PROGRAM MNEMONICS 

= BIT15 sMANUFACTURING DETECTED SECTOR ERROR 
= BIT14 sUSER DETECTED SECTOR ERROR 
RM REGISTER INDEX VALUES 

= 00 CONTROL STATUS REGISTER #1 
= 06 :DISK_ ADDRESS REGISTER 

= 12 :DRIVE STATUS REGISTER 

= 14 ERROR REGISTER #1 

= 16 ATTENTION SUMMARY REGISTER 
= 20 LOOK AHEAD REGISTER 

= 24 MAINTENANCE REGISTER 

= 26 DRIVE TYPE REGISTER 

= 30 SERIAL NUMBER REGISTER 

= 32 SOFFSET REGISTER 

= 34 DESIRED CYLINDER REGISTER 
= 36 ;HOLDING REGISTER 

= 40 sMAINTENANCE REGISTER #2 

= 42 ERROR REGISTER #2 

= 44 ECC POSITION REGISTER 

= 46 SECC PATTERN REGISTER 

= 50 ILLEGAL REGISTER 50 

= 52 ILLEGAL REGISTER 52 

= 54 ILLEGAL REGISTER 54 

= 56 ILLEGAL REGISTER 56 

= 60 ILLEGAL REGISTER 60 

= 62 ILLEGAL REGISTER 62 

= 64 ILLEGAL REGISTER 64 

= 66 ILLEGAL REGISTER 

= 70 ILLEGAL REGISTER 70 

= 72 ILLEGAL REGISTER 72 

= 7%4 ILLEGAL REGISTER 74 

= 76 ILLEGAL REGISTER 76 

= 77 sMASK FOR REGISTER INDEX NUMBER 


RH CONTROLLER REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER #41 
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s CONTROLLER REGISTER BIT DEFINITIONS SEQ 0024 
925 100000 Sc = BIT15 SPECIAL CONDITION-READ ONLY 
926 040000 TRE = BIT14 ; TRANSFER ERROR 
927 020000 MCPE = BIT13 ;MASSBUS CONTROL BUS PARITY ERROR=READ ONLY 
928 002000 PSEL = BIT10 PORT B SELECT 

001000 Al7 = BITO9 ADDRESS EXTENSION 
000400 A16 = BITO8 ADDRESS EXTENSION 
931 000200 RDY = BITO7 s;READY-READ ONLY 
33 000100 IE = BITO6 Z INTERRUPT ENABLE 
eee 3*RMCS2 RH CONTROL STATUS REGISTER #2 
936 100000 DLT = BIT15 DATA LATE=READ ONLY 
937 040000 wcE = BIT14 WRITE CHECK ERROR=READ ONLY 
020000 UPE = BIT13 SUNIBUS PARITY ERROR 
939 010000 NED = BIT12 SNONEXISTANT DRIVE=READ ONLY 
000 NEM = BIT11 [NONEXISTANT MEMORY=READ ONLY 
941 002000 PGE = BIT10 PROGRAM ERROR-READ ONLY 
942 001000 MXF = BITO9 ‘MISSED TRANSFER 
943 0004090 MDPE = BITO8 :MASSBUS DATA BUS PARITY ERROR=READ ONLY 
944 000200 = BITO7 OUTPUT READY-READ ONLY 
945 000100 IR = BITO6 ; INPUT READY=READ ONLY 
946 000040 CLR = BITOS CONTROLLER CLEAR 
947 000020 PAT = BITO4 zPARITY TEST 
948 000010 BAI = BITO3 . ZUNIBUS ADDRESS INCREMENT INHIBIT 
951 000004 U2 = BITO2 UNIT SELECT 
000002 U1 = BITO1 UNIT SELECT 
= 000001 = BITOO UNIT SELECT 
5 UNIT SELECT MASK 
34 000007 UNTMSK = 7 UNIT SELECT MASK 
4 :*RMCS3 RH70 CONTROL STATUS REGISTER #3 
959 100000 E = BIT15 ADDRESS PARITY ERROR 
960 040000 DPEHI = BIT14 [DATA PARITY ERROR HIGH WORD 
961 020000 DPELO = BIT13 DATA PARITY ERROR LOW 
962 010000 WCEHI = BIT12 WRITE CHECK ERROR HIGH WORD 
963 004000 WCELO = BIT11 WRITE CHECK ERROR LOW WORD 
964 002000 L = BIT10 iD E TRANSFE 
965 000100 IE = BITO6 z INT T e 
966 000010 IPCK3) = BITO3 zs INVERT PARITY CHECK 
967 000004 IPCK2 = BITO2 s INVERT PARITY CHECK 
968 000002 IPCK1 = BITO1 INVERT PARITY CHECK 
968 000001 IPCKO = BITOO 7 INVERT PARITY CHECK 
aa -SBTTL RH11/RH70 CONTROLLER REGISTER INDEX VALUES 
973 000000 RMCS1 = 00 CONTROL, STATUS REGISTER #1 
974 000002 RMWC = 02 COUNT REGISTER 
975 000004 = 04 *BUS ADDRESS REGISTER 
976 000010 RMCS2 = 10 :CONTROL, STATUS REGISTER #2 
977 000022 = 22 ‘DATA BUF F ER 
978 000050 = 50 [BUS ADDRESS EXTENSION 
ay 000052 RMCS3 = 52 CONTROL, STATUS REGISTER #3 
981 176700 ABASE = 176700 ;UNIBUS ADDRESS 
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982 
983 
985 
986 


000024 


992 


120254 


002716 


ee ee 
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INDEX 





VALUES 


AVECT1 = 120254 ;UNIBUS VECTOR ADDRESS AND PRIORITY 
.SBITL TRAP CATCHER 
=0 

:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.4+2,HALT"’ 

S*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

:*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: .WORD 9 ZzSOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 

JMP aASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


-SBTTL ACT11 HOOKS 


FEAR EKER EK 


: HOOKS "SSvPCe. BY ACT11 


VPC=, ZSAVE PC 

SENDAD i:17)SET LOC.46 TO ADDRESS OF $ENDAD IN .SEOP 
“wORD 0 :32)SET LOC. 332 TO ZERO 

* =$SVPC +: RESTORE P 


-=1100 
-SBTTL APT PARAMETER BLOCK 


FEAR EKEKEEKRRREERERERKEKREEREREKREKAEEEKEKEKEKEREREKEEEEKKKREKKKE 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SEERA EEEREREAEKEEKEEKEKEEEEREREEKEEKEEREKEKKKE 
-$X=. 3 ;SAVE_CURRENT LOCATION 
=24  3;SET POWER FAIL TO POINT TO START OF PROGRAM 
200.  33FOR APT START UP 
.=44 — ;;POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;:POINT TO APT HEADER BLOCK 
X  3;RESET LOCATION COUNTER 
) DER anad io anunniniririr cite iesesesrerenereeenerens 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
> INTERFACE SPEC. 


SAPTHD: 

$HIBTS: .WORD 0 3:TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD S$MAIL Lrg OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 1 ::RUN TIM OF LONGEST TEST 

SPASTM: .WORD 2 :3RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: .WORD 2 ; ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 


WORD $ETEND-SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


TAGADR=. 


SEQ 0025 
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0 -SBTTL COMMON TAGS 


MRAP AARASASALSLALALALSELAALAAA LASALLE SELLA SEALER ERE A REESE EEE ED 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


001114 -=TAGADR 
001114 : SCMTAG: :START OF COMMON TAGS 
001114 000000 0 
001116 000 STSTNM: .BYTE 0 3:CONTAINS THE TEST NUMBER 
001117 000 SERFLG: .BYTE 0 ;sCONTAINS ERROR FLAG 
001120 000000 SICNT: .WORD 0 CONTAINS SUBTEST ITERATION COUNT 
001122 000000 $LPADR: .WORD 0 :sCONTAINS SCOPE LOOP ADDRESS 
001124 000000 S$LPERR: .WORD 0 ::CONTAINS SCOPE RETURN FOR ERRORS 
001126 000000 SERTTL: .WOR 0 :-CONTAINS TOTAL ERRORS DETECTED 
001130 000 SITEMB: .BYTE 0 CONTAINS ITEM CONTROL BYTE 
001131 001 $E : BYTE 1 3sCONTAINS MAX. ERRORS PER TEST 
001132 000000 SERRPC: .WORD 0 :sCONTAINS PC OF LAST ERROR —— 
001134 000000 SGDADR: .WORD 0 zzCONTAINS ADDRESS OF ‘GOOD’ DAT. 
000000 ADR: .WORD 0 ssCONTAINS AburESS OF "BAD* DATA 
000000 $GDDAT: .WORD 0 ::CONTAINS ° * DATA 
000000 $BDDAT: .WORD QO z:CONTAINS "BAD' DATA 
000000 -WORD QO : sRESERVED=-NOT TO BE USED 
000000 -WORD QO 
000 $AUTOB: .BYTE 0 3 sAUTOMATIC MODE INDICATOR 
000 $INTAG: .BYTE QO :; INTERRUPT MODE INDICATOR 
000000 -WORD 0 
177570 : -WORD ODS :zADDRESS OF SWITCH REGISTER 
177570 DISPLAY: .WORD DDISP 2sADDRESS OF DISPLAY REGISTER 
775 TKS: 177560 eeTTy KBD STATUS 
$TKB: 177562 : TTY KBD BUFFER 
$TPS: 177564 Z:TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 22 TTY PRINTER BUFFER REG. ADDRESS 
L: YTE 0O 2sCONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 zsCONTAINS # OF FILLER CHARACTERS REQUIRED 
$FILLC: .BYTE 12 22 INSERT FILL CHARS. AFTER A ‘L FEED" 
$TPFLG: .BYTE 0 ;""TERMINAL AVAILABLE"’ FLAG. (BIT<07>=0=YES) 
$ : 0 3ZUSER DEFINED 
$STMP1: .WORD 0 2sUSER DEF INED 
$STMP2: .WORD 0 7sUSER DEFINED 
$TMP3: .WORD 0 USER DEFINED 
$STMP4: .WORD 0 2sUSER DEFINED 
$TIMES: 0 3sMAX. NUMBER OF ITERATIONS 
SESCAPE :0 ESCAPE ON ERROR ADDRESS 
$BELL: .ASCIZ ce tere ree 33 CODE FOR BELL 
SQUES: .ASCII STION MARK 
SCRLF: .ASCII <i5> 73 CARRIAGE RETURN 
SLF: eASCIZ <12> zzLINE FEED 


SERA ERE EEREKEEEEEEEEEREKEREEEEEKEEEREREREEREREEEREREKEEEE 


* SBTTL « APT MAILBOX~E TABLE 


EDI iii ii iii iiit iii ii iii iii iii iii itiiiiiiiiiiiiiiiiiiiiiiiiii! 
-EVEN 

SMAIL: MAILBOX 

SMSGTY: .WORD AMSGTY : UMESSAGE TYPE CODE 

SFATAL: .WORD AFATAL ssF ATA ERROR NUMBER 

STESTN: .WORD ATESTN ;;TEST NUMBER 





ma 
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30 000000 «WORD APASS 
001232 009000 SDEVCT: :WORD  ADEVCT 
34 090000 SUNIT: .WORD AUNIT 
001236 000000 SMSGAD: .WORD AMSGAD 
0012%0 000000 SMSGLG: [WORD  AMSGLG 
001242 SETABLE: 
001242 000 SENV: BYTE  AENV 
001243 000 SENVM: “BYTE 
001244 SSWREG: . ASWREG 
001246 000000 SUSWR : D AUSWR 
001250 $CPUOP: .WORD ACPUOP 
** 
a 
3* 
3% 
3* 
** 
001252 000 S71: .BYTE AMAMS1 
001253 009 SMTYP1: .BYTE AMTYP1 
** 
a 
3* 
"* 
001254 000000 SMADR1: .WORD AMADR1 
** 
001256 000 2: .BYTE 
001257 000 SMTYP2: .BYTE AMTYP2 
260 000000 Re: . AMADR2 
1262 000 3: .BYTE 
001263 000 $MTYP3: .BYTE AMTYP3 
1264 000000 R3: .WOR 
266 000 -BYTE 
001267 000 SMTYP4: .BYTE AMTYP4 
001270 000000 R4: .WORD R4 
001272 120254 SVECT1: .WORD AVECT1 
001274 000000 $SVECT2: .WORD AVECT2 
001276 176700 $BASE: .WORD 
000000 SDEVM: .WORD ADEVM 
001302 000000 $CDW1 «WORD ACDW1 
1 000000 $CDW2: .WORD ACDW2 
000000 SDDWO: WORD ADD 
001310 000000 SDDW1: [WORD  ADDWI 
001312 000000 $DDW2: .WORD ADDW2 
001314 000000 SDDW3: [WORD  ADDWS 
001316 000000 $DDW4: .WORD ADDW4 
000000 $DDW5 -WORD ADDW5 
001322 000000 $SDDW6: [WORD ADD 
001324 000000 SDDW7: WORD  ADDW? 
001326 $E TEND 


8 3 
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:3PASS COUNT 
:;DEVICE COUNT 


33 ONME E BIT 
22APT SWITCH REGISTER 
4s oe a Ya 
:C YPE ,OPT ~ 
BITS S12ebu YPE 
A= Lo}. 11/05=02,11/20=03,11/40=04,11/45=05 
/70=06,PDQ=07 ,0=10 
BIT 10= REAL TIME cL LOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
+ ¢HIGH ADDRESS ,M.S. BYTE 
EM. TYPE ,BLKAI 
MEM.TYPE BYTE =~ (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC rg 003 
3:HIGH ADDRESS ,BLKA# 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘'TYPE’’ ABOVE 
; HIGH ADDRESS ,M.S. BYTE 
7 :MEM. TYPE ,BLKA2 
2:MEM.LAST ADDRESS ,BLK#2 
: ;HIGH_ ADDRESS ,M.S.BYTE 
+ ¢MEM. TYPE ,BLK# 
:MEM.LAST ADDRESS .BLKA3 
; sHIGH ADDRESS, ete -BYTE 


BB SSas 
: 
: 
4 
2 


ORITY. 
:2BASE ADDRESS OF EQUIPMENT UNDER TEST 
>: CONTROLLER DESCRIPTION WORD#1 
2; CONTROLLER DESCRIPTION WORDA2 


::DEVICE DESCRIPTOR WORD#O 
::DEVICE DESCRIPTOR WORDA1 


: DEV 
$ DEV ICE DESCRIPTOR WORDA7 


SEQ 0027 








CZRMQAO RMO5S/3/2 * tess: TST 2 
USER DEFINED TAGS 


001326 


001330 
001331 
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-SBTTL USER DEFINED TAGS 


XXDP: .WORD 0 o4 LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
"XXDP! DEVICE CODE FOR THE RMO5/3/2. 
LSTRK: .BYTE 0 YT 


iL 
-BYTE 0 zHI BYTE, "CONTAINS ex’ TRACK re OF UNIT 
SUNDER TEST. RMO2/3 = 4., RMOS = 


THE REGISTER INPUT BUFFER IS USED FOR 
:STORING DRIVE STATUS 


GE TBUF : 
;REGISTER INPUT BUFFER 
RMCS1I: .WORD 0 ;CONTROL, STATUS REGISTER #1 
RMWCI: .WORD 0 WORD COUNT REGISTER 
RMBAI: .WORD 0 [BUS ADDRESS REGISTER 

AI: .WORD 0O ihe ADDRESS REGISTER 
RMCS2I: .WORD 0 sCONTROL, STATUS REGISTER #2 
RMDSI: .WORD 0 :DRIVE STATUS REGISTER 
RMER1I: .WORD 0 ;ERROR REGISTER #1 
RMASI: .WORD 0 SATT ENTION SUMMARY REGISTER 
RMLAI: .WORD 0 ;LOOK AHEAD REGISTER 
RMDBI: .WORD 0 [DATA BUFFER 
RMMRI1I: .WORD 0 >MAINTENAN CE REGISTER #1 
RMDTI: .WORD 0 ;DRIVE TYPE REGISTER 
RMSNI: .WORD 0 ;SERIAL NUMBER REGISTER 
RMOFI: .WORD 0 :OF F SET REGISTER 
RMDCI: .WORD 0 ;DESIRED CYLINDER REGISTER 
RMHRI: .WORD 0 oye So 
RMMR2I: .WORD 0 MAINTENANCE REGISTER 42 
RMER2I: .WORD 0 TERROR REGISTER #2 
RMEC1I: .WORD 0 sECC POSITION REGISTER 
RMEC2I: .WORD 0 ;ECC PATTERN REGISTER 

-WORD 0 [BUS ADDRESS EXTENSION REGISTER 

RMCS3I: .WORD 0 sCONTROL, STATUS REGISTER #3 


THE REGISTER OUTPUT BUFFER IS USED FOR 
ASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 
zREGISTER OUTPUT BUFFER 

RMCS10: .WORD 0 CONTROL, STATUS REGISTER #1 
RMWCO: .WORD 0 WORD COUNT REGISTER 

: .WORD 0 ;BUS ADDRESS REGISTER 

RMDAO: .WORD 0 :D1SK ag 3 REGISTER 
RMCS20: .WORD 0 TROL, STATUS REGISTER #2 

SO: .WORD 0 ‘DRIVE STATUS REGISTER 
RMER10: .WORD 0 ERROR REGISTER #1 
RMASO: .WORD 0 zATTENTION SUMMARY REGISTER 
RMLAO: .WORD 0 sl AHEAD REGISTE 
RMDBO: .WORD 0 :DATA_BUFFER 
RMMR10: .WORD 0 sMAINTENANCE REGISTER 41 
RMDTO: .WORD 0 :DRIVE TYPE REGISTER 
RMSNO: .WORD 0 SERIAL NUMBER REGISTER 


CZRMQAD RMOS/3/2 DSKLS TST 2 


USER DEFINED TAGS 


001462 000000 
001504 000000 
001506 172540 
172542 
000104 
000106 
177546 
000100 
001522 000102 
000000 

001526 000000 
1530 000000 


00 
001532 000000 
001534 000000 
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RMOFO: .WORD 0 sOFFSET REGISTER 

RMDCO: .WORD 0 s:DESIRED CYLINDER REGISTER 
RMHRO: .WORD 0 HOLDING REGISTE 

RMMR «WORD 0 sMAINTENANCE REGISTER #2 

RMER «WORD 0 ERROR REGISTER 

RMEC1O: .WORD 0 sECC POSITION REGISTER 

RMEC «WORD 0 ays PATTERN REGISTER 

RMBAEO: .WORD 0 S_ADDRESS EXTENSION REGISTER 
RMCS3O: .WORD 0 ;CONTROL, STATUS REGISTER #3 


EACH WORD OF pe TEST QUE CONTAINS THE DEVICE NUMBER IN 

:THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
iN OF a ZERO WORD IS A BLANK AND REPRESENTS THE 


TSTQUE: .WORD 0 ;CONTAINS DEVICE POINTER 
-BLKW 8. TEST QUE FOR DEVICES UNDER TEST 
-WORD 0 ; TABLE TERMINATOR GOES HERE WHEN 
sALL 8. DEVICES ARE UNDER TEST. 
$LPCSR: .WORD 172540 kW11-P CONTROL + oren REGISTER 
$LPCSB: .WORD 172542 ;KW11-P COUNT SET 
SLPVEC: ——- of ;KW11=-P INTERRUPT VECTOR 
$LLCSR: .WORD 177546 zKW11-L CONTROL + STATUS REGISTER 
$SLLVEC: .WORD 100 :KW11-L INTERRUPT VECTOR 
-WORD 102 
$PSW:  .WORD STORAGE FOR PRIORITY 
TIME: WORD STORAGE FOR ELAPSED TIME 
WATCH: .WORD :STORAGE FOR REMAINING TIME 
CLOCK: .WORD sADDRESS OF START CLOCK SUB 
STOP: .WORD z:ADDRESS OF STOP CLOCK SUB 


PUT TAGS HERE 


SEQ 0029 


aus 


032024 
037730 
040044 
040100 


032032 
037734 
040046 
040102 


032122 
037740 
040050 
040104 


-SBTTL ERROR POINTER TABLE 
:*THIS TABLE ee THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
NF NUMBER _F OUND 


> * THE 


ane ee 


SERRTB: 


ERROR 


; ERROR 


; ERROR 


ERROR 


; ERROR 


ERROR 


TION IS OBTAINED BY USINo THE INDEX 
: sLOCATION wich THIS 


: *NOTE2: 


IN 
NUMBER INDICATES WHICH ITEM IN THE a IS PERTINENT. 
F SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERR 


PC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:;POINTS TO THE ERROR MESSAGE 
::POINTS TO THE DATA HEADER 
:sPOINTS TO THE DATA 
:sPOINTS TO THE DATA FORMAT 


CANNOT CLEAR NED STATUS 


CANNOT READ OR WRITE ANY DEVICE REG WITHOUi NED 


CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 


CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT 


CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 


CANNOT WRITE/READ ONES 70 ALL BIT POSITIONS 





-. 
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tenon POINTER T SEQ 0031 
18 
001606 032146 EMT6 
001610+ 037740 EHTS 
001612 040050 EDT5 
001614 040104 EFTS 
19 
20 sERROR 7 CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS 
aI : OF DEVICE REGISTERS 
001616 032170 EMT7 = 
001620 037744 EHT7 
001622 040050 EDTS 
001624 0401 EFTS 
23 
24 zERROR 10 REGISTER SELECT 1 APPEARS S-A-0 
001626 032212 EMT10 
001630 000000 0 
001632 000000 0 
001634 000000 0 
26 
tA :ERROR 11 REGISTER SELECT 1 APPEARS S-A-1 
001636 032230 EMT11 
001640 000000 0 
001642 000009 0 
001644 000000 0 
: ZERROR 12 REGISTER SELECT 2 APPEARS S-A-0 
001646 032246 EMT12 
001650 000000 0 
001652 000000 0 
001654 000000 0 
32 
33 ZERROR 13 REGISTER SELECT 2 APPEARS S-A-1 


REGISTER SELECT 4 APPEARS S-A-0 


REGISTER SELECT 4 APPEARS S-A~1 





“s.9 
MACRO VO3.01 11-APR=80 14:12:35 PAGE 7=2 





ERROR POINTER T 


= thks iat TST 2 


032320 
000000 
000000 
000000 


032336 
000000 


000000 
000000 


032354 
000009 
000000 
000000 


032372 
037730 
040044 
040100 


032414 
037730 
040044 
040100 


032436 
thy 


04004 
040100 


032462 
037730 
040044 
040100 


; ERROR 


s ERROR 


: ERROR 


Zz ERROR 


; ERROR 


; ERROR 


ERROR 


EMT17 





REGISTER SELECT 8 APPEARS S-A-0 


REGISTER SELECT 8 APPEARS S-A-1 


OPI SET WITH SEACH TIMOUT DISABLED 


OPI SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET 


DTE SET WITH INDEX PULSE,SEARCH WAS NOT ENABLED 


DTE SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET 


DTE DID NOT SET WITH SECTOR PULSE.SECTOR COMPARE WAS SET 


SEQ 0032 











one ace . 
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ERROR POINTER T 





001766 032506 
001770 037730 


040044 
040100 


032532 
037730 
040044 
040100 


032552 


032624 
037730 
040044 
040100 


032644 
037730 
040044 
040100 


032660 
037730 
040044 
040100 


032672 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


: ERROR 


; ERROR 


ERROR 


DTE SET WITH SECTOR PULSE DURING FORMAT CHANGE 


MBA CLR L IS STUCK ACTIVE 


COULD NOT SET DTE AFTER FORMAT CHANGE 


CANNOT SET PROM STROBE WITH BIT CLOCK 


CANNOT CLEAR RMER1,DTE 


PROM STROBE RESET EARLY 


PROM STROBE SET EARLY 


SEQ 0033 


ye 
CZRMQAO RMOS/3/2 DSKLS TST 2 MACRO V03.01 11-APR-80 14:12:35 PAGE 7=4 
ERROR POINTER TABLE 


002060 
002062 


5 
002066 
002070 


037730 
040044 
040100 


032704 
037730 
040044 
040100 


032716 
037730 
040044 
040109 


032730 
037730 
040044 
040100 


032750 
04 


0004 
040070 
040116 


033000 
037730 
040044 
040100 


033022 
ark 


04004 
040100 


033050 
037730 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


sERROR 


LOOKING FOR SYNC SET EARLY 


LOOKING FOR SYNC DID NOT SET 


PROM STROBE SET WHILE LOOKING FOR SYNC 


SYNC DETECTED WITH WRONG PATTERN 


SYNC NOT DETECTED 


DRIVE TIMING ERROR DID NOT CLEAR LOOKING FOR SYNC 


WRITE GATE DID NOT COME ON OR RESET EARLY 





SEQ 0034 





002152 
002154 


CZRMQAO RMOS/3/2 DSKLS TST 2 
ERROR POINTER TABLE 


040044 
040100 


033066 


040104 


033120 
037730 
040044 
040100 


033134 
037730 
040044 
040100 


033150 
037750 
040052 
040100 


033166 
037730 
040044 
040100 
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; ERROR 


; ERROR 


; ERROR 


; ERROR 


ERROR 


7 ERROR 


7 ERROR 


INCORRECT SYNC PATTERN DURING HEADER 


INCORRECT SYNC PATTERN DURING HEADER 


HEADER AREA DID NOT COME ON OR RESET EARLY 


CRC ENABLE DID NOT SET 


INCORRECT HEADER GENERATED DURING WRITE 


READ GATE INCORRECT DURING HEADER AREA 


UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE 





SEQ 0035 


002244 


CZRMQAO RMO5S/3/2 (he TST 2 
ERROR POINTER TABL 


040100 


033220 
037754 
040054 
040106 


037624 
037730 
040044 
040100 


033252 
037730 
040044 
040100 


033270 
037730 
04004 


4 
040100 


033306 
037730 
040044 
040100 


033322 
037760 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


ERROR 


: ERROR 


ERROR 





EFT1 


53 
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INCORRECT HEADER READ IN DIAGNOSTIC MODE 


INCORRECT TAG BUS DURING DATA COMMAND 


DATA TIMING SEQUENCER CONTROLS INCORRECT DURING DATA COMMAND 


DATA AREA DID NOT COME ON OR RESET EARLY 


ECC ENABLE DID NOT SET 


DEVICE IS NOT AN RMO5/3/2 


DEVICE AVAILABLE IS NOT SET 


SEQ 0036 


CZRMQAO_RMOS/3/2 1 eee TST 2 
ERROR POINTER TABL 


033352 
037764 


040060 
040106 


033370 
037730 
040044 
040100 


033406 
Rrnore 


04004 
040100 


033420 
037730 
040044 
040100 
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sERROR 61 


sERROR 62 


sERROR 63 


zERROR 64 


sERROR 65 


sERROR 66 


ZERROR 67 
EMT67 
0 


0 
0 





INCORRECT ECC PATTERN GENERATED DURING WRITE 


CANNOT CLEAR PROM STROBE WITH BIT CLOCK 


DATA AREA DID NOT RESET 


UNEXPECTED ECC ERROR IN DIAGNOSTIC MODE 


INCORRECT DATA TRANSFERRED TO MEMORY 










ERROR POINTER TABLE 
002426 033500 
00 
002436 033520 
000000 


002440 
002442 000000 
002444 000000 


002446 033544 
00 000000 


002452 000000 
002454 000000 


033570 
000000 


CZRMQAO RMOS/3/2 DSKLS TST 2 
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ERROR 70 


EMT70 
0 


0 
0 


;ERROR 71 


EMT71 


sERROR 73 


EMT73 
0 


0 
0 


sERROR 74 


EMT74 
0 


0 
0 


ZERROR 75 


EMT75 
0 


0 
0 


sERROR 76 


EMT76 
0 


0 
0 


SEQ 0038 


CZRMQAO RMOS/3/2 DSKLS TST 2 
ERROR POINTER TABLE 


033646 
000000 


000000 
000000 


035454 
040030 


040070 
040116 


037604 
037730 
040044 
040100 


033722 
037730 
040044 
040100 


035520 
040030 
040070 
040116 


035542 
000000 


000000 
000000 


035570 
037730 
040044 
040100 


MACRO V03.01 11-APR-80 


sERROR 77 


s ERROR 


; ERROR 


: ERROR 


; ERROR 


ERROR 


;ERROR 


sERROR 


EMT77 


101 


102 


103 


EFT115 


104 
EM1174 
0 

0 

0 

105 
parirs 
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CANT SET VOLUME VALID 


RUN AND GO WONT SET 


SEARCH ENABLE WONT SET 


OCCUPIED IS INCORRECT FOR FUNCTION CODE 


READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 


READ IN PRESET DIDNT CLEAR RMOF 


READ IN PRESET DIDNT CLEAR RMDA 


SEQ 0039 


—_ 
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ERROR POINTER TABL 


211 
002606 035606 EMT176 
002610 037730 EHT1 
002612 040044 EDT] 
002614 040100 EFT 
212 
Siz sERROR 197 READ IN PRESET DIDNT CLEAR RMDC 
002616 035624 [M1177 
002620 037730 EHT1 
002622 040044 EDT1 
002624 040100 EFT1 
215 : 
$i$ ERROR 110 CANT SET OFFSET MODE BY OFFSET COMMAND 
002626 035642 FMT200 
002630 037739 EHT1 
002632 040044 EDT1 
002634 040100 EFT 
218 
219 ;PUT ERROR TABLE HERE 


CZRMQAQ a the ‘nt TST 2 MACRO VO3.01 11-APR=80 14:12:35 PAGE 8 


4 . 
6 MOV #DISPREG,DISPLAY 


003 
003144 012737 000174 


ERROR POINTER T SEQ 0041 
N : THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
3 002636 011600 BADTMO: MOV (SP) ,RO : SAVE PC WHERE THE TIME OUT OCCURED 
4 002640 005740 TST - ST P 
5 002642 022626 CMP (SP)+, (SP)+ ?RESTORE STACK POINTER 
6 002644 104401 002652 TYPE ,65$ : 3 TYPE ASCIZ STRING 
002650 000417 BR 64$ GET OVER THE ASCIZ 
33658: .ASCIZ <CRLF>/UNEXPECTED" BUS TIMEOUT, PC=/ 
002710 64$: 
7 002710 010046 MOV RO,-(SP) SETUP FOR TYPING OUT PC 
8 002712 104402 TYPOC 
9 002714 000240 NOP sPUT *HALT(0)* INSTRUCTION HERE IF YOU WISH 
NL TO STOP ON UNEXPECTED TIMEOUT. 
\¢ -SBTTL START OF PROGRAM 
14 002716 000240 START: NOP 
15 002720 005227 000000 INC #0 :TTY LOOP, WAIT FOR INCREMENT 
16 002724 001375 BNE 74 ; OF 
if 002726 000005 RESET RESET THE WORLD 
19 -SBTTL_ INITIALIZE THE COMMON TAGS 
:2:CLEAR THE COMMON TAGS (S$CMTAG) AREA 
002730 012706 001114 MOV #SCMTAG ,R6 sty LOCATION TO BE CLEARED 
002734 005026 CLR (R6)+ 2CL EAR MEMORY LOCATION 
002736 022706 001154 CMP ASWR ,R6 32D 
002742 001374 +4 --6 LOOP. "BACK K IF NO 
002744 012706 001100 AMSTACK, SP SESETUP THE STACK POINTER 
:s INITIALIZE A FEW VECTORS 
002750 012737 026220 000020 HSSCOPE ,a# IOTVEC At VECTOR FOR SCOPE ROUTINE 
002756 012737 000340 000022 MOV #340, a iOTvece? sel 7 
002764 012737 026602 0000350 MOV #SERROR , AMEMTVEC :eMT VECTOR FOR ERROR ROUTINE 
002772 012737 000340 000032 MOV eares QPEMTVEC SD. ; 2sLEVEL 7 
012737 030342 000034 MOV #STRAP, ANTRAPVEC : TRAP VECTOR FOR TRAP CALLS 
003006 012737 000340 000036 MOV #340, a#TRAPVEC+2;LEVE 
003014 012737 030450 000024 MOV #SPWRDN , AAPWRVEC : POWER FAILURE VECTOR 
003022 012737 000340 000026 MOV #340, aWPWRVEC+2 ;:LEVEL 7 
003030 013737 021412 021404 MOV SENDCT , SEOPCT ‘ISEYUP END-OF PROGRAM COUNTER 
003036 005037 001206 CLR STIMES INITIALIZE NUMBER OF ITERATIONS 
003042 005037 001210 CLR SESCAPE 23 CLEAR THE ESCAPE ON ERROR ADDRESS 
003046 112737 000001 001131 MOVB #1, SERMAX OW ONE ERROR PER TEST 
003054 012737 003054 001122 MOV ee TINITIALIZE THE LOOP ADDRESS FOR SCOPE 
003062 012737 003062 001124 MOV -SLPERR SETUP THE LOOP ADDRESS 
32SIZE 4° HARDIE nyt REGISTER. IF NOT FOUND OR I 
2EQUAL T 1°", SETUP FOR A SOFTWARE SWITCH REGISTER. 
013746 000004 mov @WERRVEC, mule P) scaee ERROR VECTOR 
012737 003130 000004 MOV #64$ ,@HERRVEC SET UP ERROR VECTOR 
003102 012737 177570 001154 MOV #DSWR, SWR ; SETUP FOR A HARDWARE SWICH REGISTER 
003110 012737 177570 001156 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
003116 022777 177777 176030 CMP #~1 ,@SWR TRY TO oF to tin HARDWARE SWR 
003124 001012 BNE 66$ ; BRANCH IF TIMEOUT TRAP OCCURRED 
2cAND THE HARDWARE SWR IS NOT = -1 
003126 000403 BR 65$ 3 BRANCH IF NO TIMEOUT 
003130 012716 003136 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
003134 000002 RTI 
136 012737 000176 pont? 65$: MOV ASWREG, SWR :zPOINT TO SOFTWARE SWR 








INITIALIZE THE C 


e 
43 003474 





012637 
005037 
132737 
001403 
012737 


012737 


000403 
112737 
000426 


CZRMQAO RMOS/3/2 DSKLS Ape 2 
COMMON TA 


177777 
021546 
003312 
000042 
001242 
001154 


000001 


001326 
000016 


000040 
000007 
001326 
000042 


003440 


001326 
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001243 
001154 


000004 
000006 


000042 
000001 
000176 


001150 


000041 


001326 
001326 


66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


CLR $PASS ceCher PASS COUNT 

BITB WAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
BEQ $ ;YES,USE NON-APT SWITCH 

MOV ASSWREG , SWR INO, USE APT SWITCH REGISTER 


67$: 
; SETUP ‘ae TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 


WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
toad WPR6,ERRVEC+2 LEVEL 6 
#PR3,~-(SP) :sPUT NEW PS ON STACK 
mov #68$ ,-(SP) :-PUT NEW PC ON STACK 
68s RTI :sPOP NEW PC AND PS 


-SBTTL _TYPE PROGRAM NAME 
:;TYPE THE NAME yd THE PROGRAM IF FIRST PASS 
INC #~1 zsFIRST TIME? 


69$ ee CH IF NO 
CMP ASENDAD , 0442 2sACT=-11? 
BEQ 69$ —s IF _YES 
TYPE .70$ YPE ASCIZ_ STRING 
.SBTTL GET VALUE FOR SOFTWARE suiTcn REGISTER 
TST arse E WE RUNNING UNDER XXDP/ACT? 
BNE 71$ : 7 BRANCH IF YES 
CMPB SENV 41 ARE WE RUNNING UNDER APT? 
BEQ 71$ ;:BRANCH IF YES 
CMP SWR ,ASWREG 33 SOF TWARE SWITCH REG SELECTED? 
BNE 72$ CH IF NO 
ha 72$ 7:GET SOFT-SWR SETTINGS 
pis: MOVB #1,$AUTOB 3-SET AUTO-MODE INDICATOR 


BR 69$ 7:GET OVER THE ASCIZ 
jg res: eASCIZ <CRLF>@CZRMQAO - RMO5S/3/2 DISKLESS TEST, PART 2a@<CRLF> 


+ THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
zPAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 


CLR XXDP :CLEAR "XXDP* LOAD DEVICE STORAGE 
CMPBs#'16, #41 [LOADED FROM AN RMOS/3/2 ? 
BNE 5$ [BRANCH IF NOT 
MOV av40,XXDP GET DEVICE INDICATOR AND NUMBER 
CMPBso#7, XXDP [1S IT A VALID NUMBER 
BHIS  1$ :Y 
CLRB - XXDP :NO, DEFAULT TO DRIVE 0 
1$: TST ara2 [CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 3$ [BR IF NEITHER 
TYPE 74$ 73 TYPE ASCIZ STRING 
BR 73$ GET OVER THE ASCIZ 
54748: -ASCIZ <CRLF>/NOT TESTING DRIVE / 
CLR -(SP) ZCLEAR WORD ON STACK 
MOVB —sXXDP,, (SP) [GET DRIVE ADDRESS 


TYPOS : TYPE THE ADDRESS 
-BYTE 1 SONLY 1 CHARACTER 


SEQ 0042 





CZRMQAO RMO5/3/2 DSKLS 
GET VALUE FOR SOF TWARE 


4G 7 000 
45 003476 104401 
000517 


3742 105737 
001506 
012737 


68 003756 132737 
001066 
005001 
72 003770 013700 


74 003774 136137 
001453 
012737 
005737 
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TST 2 
SWITCH REGISTER 


001217 


177777 
003520 


001326 


003560 


003650 


001150 
000377 


000200 


001276 
032014 


031637 
001326 


001326 


oe LEADING ZEROS 
GET NUMBER OF DRIVES 
FIRST TIME THRU HERE ? 


ii TYPE ASCIZ STRING 
3sGET OVER THE ASCIZ 


CLEAR WORD ON STACK 
[GET DRIVE ADDRESS 
Flag. DRIVE ADDRESS 

Y 1 Rar y ER 
: SUPRESS LEADING ZEROS 
sat YPE ASCIZ STRING 


.BYTE 0 
TYPE $CRLF 
BR §$ 
3$: INC #~-1 
BNE 5$ 
TYPE 76$ 
BR 75$ 
54768: ,ASCJZ <CRLF>/TO TEST DRIVE / 
CLR -(SP) 
MOVB —XXDP, (SP) 
TYPOS 
.BYTE 1 
“BYTE 0 
TYPE 4788 


BR 7$ ASCIZ 
;;78$: .ASCIZ /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 


77$: 
TYPE 79$ 


BR $ :GET OV ASCIZ 
_ -ASCIZ /WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
CHECK FOR AUTO MODE OR STANDAL ONE 
TSTB $AUTOB 


BEQ STANDALONE 


GET OVER THE A 


ee TYPE ASCIZ eg P 
VER THE A 


a IN AUTO MODE ? 

:SET DEVICE MAP FOR ALL DRIVES 

~- SEE IF SIZING IS ALLOWED 
SIZING ALLOWED ? 

NO 

START FROM DRIVE 0 

LOAD THE BASE ADDRESS 

i DEVICE PRESENT IN MAP ? 


7GET ADDRESS OF LOAD DEVICE MESSAGE 
; LOADED FROM RMO5/3/2 ? 


HIS THIS THE DRIVE ? 
:YES, TRY NEXT DRIVE 


CLEAR MASS BUS 

OAD THE DRIVE ADDRESS 

:TRY TO ACCESS AN RM DRIVE REGISTER 
GET ADDRESS OF | PRESENT MESSAGE 
iS ae PRESEN 


NO 
:GET ADDRESS OF 1 bao MESSAGE 
21S s AVAILABLE ? 


CLEAR DEVICE FROM BIT MAP 


001300 MOV #377,$DEVM 
; PROGRAM IS RUNNING IN AUTO MODE 
001243 '  BITB —- #BIT7, SENVM 
BNE 7$ : 
CLR R1 
MOV $BASE .RO 
001300 1$: g1 78 ATNTBL (R1) , SDEVM_ 
004130 MOV ALODEV,5$ 
TST XXDP 
BEQ 2$ 
CMPB —s XXDP,R1 
BEQ 3$ 
000010 28: MOV #CLR,RMCS2(RO) 
MOV R1,RMCS2(RO) ss :L 
TST RMDS (RO) 
004130 MOV ANOTPRS , 5$ 
000010 BIT #NED ,RMCS2 (RO) 
BNE 3$ 
004130 MOV WNOTAVL .5$ 
000000 BIT #DVA,RMCS1 (RO) 
BEQ 3$ BR IF 
BR 6$ 
001300 3$: BICB ATNTBL(R1),$DEVM 
4s: F = $CRLF :CR=LF 


SEQ 0043 





ZRMQAO RMOS 
GET VALUE FOR 
95 004114 
96 004120 
004122 
004124 
004125 
97 004126 
eS 004130 
100 004132 
101 004134 
102 004140 
103 
104 004142 
105 004146 
106 004150 
107 004152 
108 004154 
109 004156 
110 
111 004160 
112 


000 
104401 
000000 


000137 


/3/2 DSKLS TST 2 
SOFTWARE SWITCH REGISTER 


104401 
010146 
104403 

002 


031631 


005970 
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MSGDRV 
1,-(SP) 


k 
2 
0 
0 


R1 
R1,47 
1$ 


CMNSTART 


sTYPE ‘DRIVE' 
: SAVE R1 FOR TYPEOUT 


ME 
‘ADDRESS OF MESSAGE GOES HERE 


yg! THE wits: ADDRESS 
ALL. DRIVES “ar HECKED ? 
BRANCH IF 


LF 


7 CR- 
: THESE TWO LOOPS ARE ADDED TO 
[WAIT FOR TTY TO FINISH TYPING. 


JUMP TO COMMON START 


CZRMQAO RMO5/3/2 DSKLS TST 2 . 
STANDALONE INPUT ROUTINES 


| 1 

| 2 
$ 004164 

| 4 004164 004737 027012 
6 004170 005227 177777 
2 004174 001426 
9 
10 004176 
11 004176 104401 031176 
12 004202 104411 
13 004904 012637 001176 
14 004210 104401 001176 
15 004914 123727 001176 
16 004922 001004 
17 004294 104401 001217 
18 004250 000137 005070 
20 004234 123727 001176 
51 004242 001497 
52 004944 104401 031573 
53 004950 00075 
5% 
55 
56 004252 
57 004252 104401 031112 
$8 004256 104411 
59 012637 001176 
$0 201 001176 


372 104401 031231 
376 013746 001276 
4 104402 





G 4 
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000131 


000116 


000131 
000116 


000131 
000116 


-SBTTL STANDALONE INPUT ROUTINES 
STANDALONE : 
JSR 


PC, $TKINT : INITIALIZE CONSOLE 
INC #~1 :FIRST TIME THRU HERE ? 
BEQ 3$ TYES !! 
i SEE IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING 
: TYPE »CNSLOO zMAINTAIN PREVIOUS PARAMETERS ? 
RDCHR *GET RESPONSE 
V (SP) +, $TMP1 ZECHO RESPONSE 
TYPE $T 
CMPB ss S$TMP'1,#'Y :YES RESPONSE ? 
BNE 2$ NO! ! 
TYPE  ,$CRLF > CR=LF 
JMP CMNSTART ‘KEEP PREVIOUS PARAMETERS 
2s: CMPB ss S$ TMP'1,#'N ZNO RESPONSE ? 
BEQ ‘YES, GET NEW PARAMETERS 
TYPE  , CNSLO8 [NO, TYPE * ILLEGAL INPUT ' 
BR is :TRY AGAIN 
SEE IF OPERATOR WANTS HELP TEXT 
; TYPE §_,MSHELP :WANT HELP ? 
RDCHR *GET RESPONSE 
V (SP)+,$TMP1 7SAVE AND ECHO RESPONSE 
TYPE  ,$TMP1 
CMPB ss STTMP'1,#'"Y zWAS IT A YES RESPONSE ? 
BEQ 4$ YES 
CMPB = $TMP1,#'"'N [WAS IT A NO RESPONSE ? 
BEQ 5$ YES 
TYPE CNSLO8 =NO, TYPE * ILLEGAL INPUT’ 
BR $ :TRY AGAIN 
4$: TYPE HELP ‘YES = TYPE HELP TEXT 
iSEE IF USER WANTS TO CHANGE UNIBUS ADDRESS 
; TYPE »SCRLF ZCR-LF 
TYPE § [ UBUSQST ‘WANT TO CHANGE ADDRESS ? 
RDCHR [GET RESPONSE 
MOV ($P).+. STHPI :SAVE AND ECHO RESPONSE 
CMPB Ss S$ TMP'1,a#''Y :WAS IT A YES RESPONSE ? 
BEQ 6$ +Y 
CMe SNP! AON :WAS IT A NO RESPONSE ? 
TYPE CNSLO8 At Sy TYPE * ILLEGAL INPUT ° 
5$+4 :TRY AGAIN 


jSIALORe TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 


TYPE CNSLO1 
MOV $BASE , -(SP) : 
TYPUC : 


i TYPE CURRENT BUS ADDRESS 
>;SAVE $BASE FOR TYPEOUT 
;;GO TYPE--OCTAL ASCII(ALL DIGITS) 


SEQ 0045 





CZRMQAO RMOS/3/2 DSKLS TST 2 
STANDALONE INPUT ROUTINES 


004404 104401 031103 


59 004412 012637 001176 

60 0044 001412 

61 004420 022737 160000 

63 0044350 104401 031247 

64 34 000760 

+4 004436 0137357 001176 

67 004444 104401 031311 
005046 

69 004452 113716 001272 


71 0044 

72 004461 000 

73 004 104401 031103 
74 004 104413 

75 0044 012637 001176 
76 004474 001412 

77 004476 022737 001000 
78 004504 101003 

79 004506 104401 031331 
80 004512 000754 

4 004514 113737 001176 
83 004522 104401 031365 
84 004526 005046 

85 004550 113716 001273 
86 004534 006216 

87 004536 006216 

88 004540 006216 

89 004542 006216 

90 004544 006216 

91 004546 104403 

92 004550 001 

93 004551 

94 004552 104401 031103 
95 004556 104413 

96 004560 012637 001176 
97 004564 001424 

98 004566 023727 001176 
99 004574 002403 

100 004576 104401 031377 
101 004602 00074 

102 004604 006337 001176 
103 004610 006337 001176 
104 004614 006337 001176 
105 004620 006337 001176 
106 004624 006337 001176 
107 004650 113737 001176 
108 
109 

110 004636 

111 004636 005227 177777 
112 004642 002 

113 004644 104401 031430 
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TYPE QUES 
RDOCT 
MOV (SP)+,$TMP1 
BEQ $ 
001176 CMP #160000, $TMP1 
BLOS 7 
TYPE ~CNSLO2 
BR $+4 
001276 7$: MOV STMP1, $BASE 
8$: TYPE ~CNSLO3 
CLR -(SP) 
MOVB $VECT1, (SP) 
TYPOS 
-BYTE 3 
-BYTE 0 
TYPE QUES 
RDOCT 
MOV (SP)+,$TMP1 
BEQ 10$ 
001176 CMP #1000, $TMP1 
BHI oF 
~ CNSLO4 
001272 9$: MOVB STMP1,$VECT1 
10$: TYPE ~CNSLOS 
CLR -(SP) 
MO $VECT1+1, (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
TYPOS 
-BYTE 1 
-BYTE 0O 
TYPE QUES 
RDOCT 
MOV (SP)+,$TMP1 
BEQ 


000007 CMP STMP1 #7 


11$: ASL STMP1 


ASL $TMP1 
ASL STMP1 
ASL $TMP1 
001273 MOVB $TMP1 ,SVECT1+1 


INC #~1 
BNE 13$ 
TYPE -CNSLO7 





; TYPE ee ? oe 

GET NEW " ADDRESS 

: CARRIAGE R ory 
:YES-SKIP_TO NEXT ENT 

:BASE ADDRESS IN I/0 PAGE ? 


TYPE WARNING MESSAGE 
3; TRY AGAIN 
: STORE NEW BUS ADDRESS 


GET CURRENT VECTOR ADDRESS 


:TYPE 3 DIGITS 
: SUPPRESS | LEADING ZEROS 


GET NEW VECTOR ADDRESS 
: CARRIAGE RETURN? 

:YES-SKIP TO NEXT ENTRY 
i VECTOR ADDRESS < 1000 ? 


:TYBE” WARNING MESSAGE 
STORE NEW VECTOR ADDRESS 


GET CURRENT BR LEVEL 


ONLY 1 DIGIT 
2 SUPPRESS LEADING ZEROS 


:GET NEW PRIORITY | 
CARRIAGE RETURN ? 
:YES-SKIP TO a ENTRY 
:LEGAL PRIORITY 


: TYPE WARNING MESSACS 
:TRY AGAIN 
STORE NEW PRIORITY 


jSiALOGUE TO INPUT DEVICE NUMBERS 


FIRST TIME THRU ? 
: TYPE INPUT INSTRUCTIONS 


m4 


SEQ 0046 





CZRMQAO RMOS/3/2 DSKLS TST 2 
STANDALONE INPUT ROUTINES 


114 004650 104401 001217 
115 004654 005037 001300 
116 004660 104401 031615 
117 004664 104411 

118 004666 012637 001176 
119 004672 023727 001176 
120 004700 001007 

121 004702 401 031076 
122 004706 012737 0003 
‘SZ 004714 137 003756 
125 004720 023727 001176 
126 004726 001436 

127 004730 104401 001176 
128 004734 023727 001176 
129 004742 002430 

130 004744 023727 001176 
131 004752 003427 

1% 004754 000423 

134 004756 104411 

135 0047 012637 001176 
136 004764 023727 001176 
137 004772 00143 

138 004774 104401 031107 
+44 5 104401 001176 


S364 001176 
142 005014 3634 001176 
144 005024 104401 031573 
45 005030 


47 005032 013701 091176 
042701 
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000101 


001300 


000015 


000060 


000067 


000015 


000060 
000067 


001300 
001300 


13$: 
14$: 


15$: 


16$: 


17$: 


18$: 


19$: 


-MSDRVS 
(SP)+,$TMP1 
STMP1,#°A 
15$ 
eALL 
#377 ,SDEVM 
XSIZ 


$TMP1,ACR 


(SP)+,$TMP1 
STMP1 ACR 
19$ 


,STMP1 
STMP1,#'O 
17$ 

STMP1 ,#°7 


18$ 
. C(NSLO8 
14$ 


STMP1,R1 


#*C7,R1 
ATNTBL (R1) , SDEVM o 


#377 ,$DEVM. 
16$ 

- $CRLF 
XSIZ 


; CRLF 
CLEAR DEVICE MAP 
:TYPE DRIVE(S): ' 


GET RESPONSE 
1 INPUT _ ? 


YES, TYPE "‘ALL’* AND GO 
SET DEVICE MAP FOR ALL DRIVES 
sAUTO SIZE. 


= RETURN ? 
‘ECHO RESPONSE 
:NUMBER <0? 


ES 
“NUMBER > 7 ? 
NO 
; ILLEGAL INPUT 


:GET RESPONSE 
: CARRIAGE RETURN ? 
STYPE ', ' 

SECHO RESPONSE 
“NUMBER < 0 ? 
‘YES 

“NUMBER > 7 ? 
[TYPE '' 2?1LLEGAL INPUT*’ 
RETRY 


R1 = DRIVE NUMBER 
. SET DEVICE IN MAP 


e 


CR=LF 
:GO SIZE DEVICES 


SEQ 0047 


STANDALONE I 


SSSESSSSSSS 


td ak td ot 2 2 ot 2 I IOOO 
ey 
KREVNRSRRVSRS 


68988888 
RS 


MMM) 


Seb hune 
“OOD WNAUSWN OVD ONOULSWN = 


Nm nr 

* Wr 
88833" 
and oat oad an and and 

SFENS 


005176 
25 005176 
26 005200 
27 005202 


CZRMQAO ote ot: DSKLS TST 2 


T ROUTINES 


5 
104407 
0004 


032014 
000002 


022500 


005164 


000042 
001242 
001154 


000001 


001300 
000042 
002716 
021356 
001116 
001206 
027012 
000300 
005316 
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000001 


000001 
000176 


001150 








;ASSEMBLE TEST QUE FROM DEVICE MAP 
CMNSTART : 


1$: 


2s: 


3$: 


;SIZE FOR CLOCK 
JSR 


4$: 


3765$: 
64$: 


5$: 
-SBTTL 


2$: 


MOV $DEVM,RO 

MOV AMTSTQUE+2,R1 

MOV R1,TSTQUE 

MOV 1,R2 

CLR 3 

BIT R2.RO 

BEQ 2$ 

MOV R3,(R1) 

MOVB ATNTBL(R3),1(R1); 

ADD #2,R1 

ASL Re 

TSTB Re 

BEQ 3$ 

INC R3 

BR 1$ 

CLR (R1) 
PC,SIZCLK 
5$ 

EMT 

TYPE ey 

eASCIZ <CRLF>/PROG HLT/ 

HALT 

BR 4$ 

TS 

BNE 66$ 

C SENV 41 

BEQ 

CMP SWR ,ASWREG 

BNE 67$ 

GTSWR 

BR 67$ 

MOVB #1,$AUTOB 

TSTB SDEVM 

BNE 2s 

TST ase 

BNE 1$ 

JMP START 

JMP $SEOP 

CLRB STSTNM 

CLR STIMES 

JSR PC, ,STKINT 

MOV #PR6,~(SP) 

ay #64$,-(SP) 


3RO = pathy MAP 


S OF FIRST ENTRY IN QUE 
POINTER 


:R1_= ADDRES 

PINITIALIZE ENTRY 

;R2 = pe vice POINTE 

;R3 = DEVICE NUMBER 

‘lS THIS DEVICE IN MAP ? 


;YES = ENTER DEVICE SD ae IN QUE 
sENTER ATTENTION BIT IN 

ADVANCE ENTRY POINTER 
ADVANCE DEVICE POINTER 
1 rg ALL DEVICES ? 


TADVANCE DEVICE NUMBER 


ENTER NEXT DEVICE 
: TERMINATE TEST QUE 


SEE IF CLOCK PRESENT 
YES = CLOCK IS PRESENT 


2eTYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


PROGRAM HALT !! 


eT VALUE ayy SOF TWARE SWITCH REGISTER 


ae WE RUNNING UNDER XXDP/ACT? 

; F YES 

; WE 

; sBRANCH IF 

23 SOF TWARE SWITCH REG SELECTED? 
; sBRANCH 

77GET SOFT-SWR SETTINGS 

:2SET AUTO-MODE INDICATOR 
READY TO START TEST 

zANY DRIVES IN MAP ? 

BR IF YES 

zANY MONITOR PRESENT ? 

BR IF YES 


: JUMP TO STAR 
> RE TURN CONTROL TO MONITOR 


RESET TEST NUMBER 
2 INITIALIZE ae OF ITERATIONS 


{PUT NEW PS ON STACK 
7:PUT NEW PC ON STACK 
77POP NEW PC AND PS 





SEQ 0048 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0049 

005316 64$: 

re 005316 117737 174140 001234 MOVB @TSTQUE,$UNIT ;LOAD UNIT NUMBER 

43 : CLEAR MASSBUS tonite tt SELECT DRIVE AND DETERMINE THE LAST TRACK 

as OF THE DIFFERENT DRIVE TYPES 

45 005324 012737 002000 001330 MOV #TAS .LSTRK 3ASSUME LAST conus FOR RMO2/3 = 

46 005332 013700 001276 MOV SBASE ,RO ;RO_ = UNIBUS ADDRESS 

47 005336 012760 000040 000010 MOV WCLR,RMCS2(RO) = CLEAR MASSBUS_ 

48 005344 117760 174112 000010 MOVB @TSTQUE ,RMCS2(ROS sSELECT DEVICE UNDER TEST 

49 005352 016002 000026 MOV RMDT (ROS ,R2 ;GET RMDT AND 

50 005356 042702 177770 BIC #177770,R2 ;SAVE_DRIVE TYPE BITS 

51 005362 022702 000007 CMP #7 ,R2 71S IT AN RMOS ? 
005 001003 BNE 3$ :NO, must BE AN RMO2 OR RMO3 

53 005370 012737 011000 001330 MOV WTA16!TA2,LSTRK ;YES=-SET LAST TRACK = 18. 


se 005376 3$: 





CZRMQAQ RMOS/3/2 DSKLS ze 2 
REGISTER AND STORAGE USAGE 


4 HY YH YS 
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SEQ 0050 


-SBTTL REGISTER AND STORAGE USAGE 
REGISTER ASSIGNMENTS 


UNIBUS ADDRESS OF RH CONTROLLER 
ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE 
UNIT UNDER TEST 


WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE 
SAVED BY SUBROUT 

GENERAL WORKING REGISTERS, ARE NOT SAVED BY 
UBROUT INES 


Ss 
STACK POINTER 
LINKAGE REGISTER TO SUBROUTINES 


3 STORAGE ASSIGNMENTS 


:STMPO-$TMP4 
S$GDDAT , $BDDAT 
 SGDADR. $BDADR 


i STSTN 
= RGINBF 


= RGOTBF 


TEMPORARY STORAGE, NOT SAVED BY e teden’ ton 

EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 
ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE, 
ALSO THE ADDRESS OF A REGISTER ERROR 


TEST we 

NUMBER OF DEVICE BEING TESTED 

THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 
EACH REGISTER, AND IS USED WHEN READING STATUS AND 


CONTROL DATA 
THE REGISTER —s BUFFER HAS A STORAGE LOCATION FOR 
EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE 


WRITTEN IN REGISTERS 





* eaierates RMO5/3/2 DSKLS 


TRANSFER TEST 


5 


aa aad ad a nd ed ed ed ed ed 
WONAULSWN—O 


3B 


012737 
012702 


012713 
032760 
001432 


TST 2 
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001226 


000010 


SRA 


ithe eee tesa eee ec eeeee eee ttt aseci cece cee ee eee eee cece ec ace eciaa sg 


TRTEST 1 TRANSFER TEST 
811: 
SCOPE 
NOP 
MOV ASTACK, SP 


MOV TSTQUE,R1 
MOV #1, $TESTN 


MOV #0,R2 


st 
10$: 
JSR PC.CNTCLR 


MOV RMCS2(RO) ,SBDDAT 
BIT ee 


MOVB (R1) , SGDDAT 


BIC #*CUNTMSK, SGDDAT 
BIS #IR, tart om t 


:SCOPE CALL 


LOAD THE STACK POINTER 
RO = UNIBUS ADDRESS 

;R1_= POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 


sR2 = REGISTER INDEX 


LEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 


:GO CLEAR CONTROLLE 
: STORE RMCSS AT S$8DDAT 


sREAD THE REGISTER —_e IS IN R2 AND EXIT TEST IF THE READ 


MOV RO, $8DAD 
ADD ARC SE. SEDADR 
EMT 1 
BR 60$ 
“DOES NOT SET 'NED'’ 
30$: 
MOV RO-RE 
ADD 2,R3 
MOV RAS) R46 


BIS #IR,$GDDAT 
MOV RO, 
60$ 


NOT SET ‘NED** 
MOV 


$08 


BEQ 


BIT #NED;RMCS2 (RO) 
70$ 


PC, CNTCLR 
RMCS2(RO) , SBDDAT™ 
BIT G5>-Saeent 


VB (R1) , SGDDAT 
BIC #°CUNTMSK, gens 


R 
ADD #RecS2 , SBDADR 


#0, (R3) 
BIT #NED ,RMCS2 (RO) 
70$ 


:R3 = REGISTER ADDRESS 
READ REGISTER 
e1S "NED" SET?? 


:GO CLEAR CONTROLLER 
zSTORE RMCS2 AT SBDDAT 


a THE REGISTER —— INDEX IS IN R2 AND EXIT TEST IF THE WRITE 


sWRITE REGISTER 
z1S *NED’* SET?? 


;COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING ‘NED’' ERROR - 


SEQ 0051 





TRANSFE 


103257 


013737 


CZ7RMQA0 a dalt | DSKLS TST 2 
11 TEST 


001276 
021320 


000032 


177701 
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001136 


001226 


sADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT 


40$ 


;AVAILABLE DEVICE REGISTER 


ee TO NEXT REGISTER 
HIS RMWC? 


IST 
YES = TRY NEXT REGISTER 
HIS THIS 


YES _= TRY NEXT REGISTER 
:1S THIS RMCS2?? 

Hi = TRY ANOTHER REGISTER 
Is. T RMAS ? 


HIS 
ove, - TRY ANOTHER REGISTER 
:1S 7 HIS RMDB?? 
:YES = TRY ANOTHER REGISTER 
;1S THIS A LEGAL REGISTER 
:YES = TRY THIS REGISTER 


pgoT "NONEXISTENT DEVICE’ ERROR FOR EVERY REMOTE REGISTER ADDRESS 


mov $BASE , SBDADR ;STORE BASE ADDRESS 
60S: JMP $EOSP 3GO SELECT NEXT DEVICE 
70$: 
FERRARA REEEEELEEREKEKEEEKEKEEREERERKEEEEEEKEKEE 
tSTEST 2 CTOD TEST 
2 FS RAE ERKEEKEEEEREKEREEEKEEEEKKEEEKEKEEKRE 
TST2: 
SCOPE SCOPE CALL 
MOV STACK, SP LOAD THE STACK POINTER 
MOV SBASE ,RO 7RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 7R1 = POINTER TO DEVICE 
MOV #2,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR GO CLEAR CONTROLLER 
WRITE ONES IN REMOTE REGISTERS 
MOV #ILF76,RMCS1 (RO) ;LOAD RMCS1 
MOV #~-1 ,RMDA(RO) ZLOAD RMDA 
MOV #CYLMSK ,RMDC (RO) LOAD RMDC 
MOV #*CXNUOF , RMOF (RO) ;LOAD RMOF 


sREAD REMOTE REGISTERS TWICE 
MOV #1,R2 


10$: 
MOV RMCS1(RO) .RMCS1I sSTORE RMCS1 IN INPUT BUFFER 
MOV RMDA(RO), RMDAL ZSTORE RMDA IN INPUT BUFFER 
MOV ws ae sSTORE RMDC IN INPUT BUFFER 

as RO), ‘Rar sSTORE RMOF IN INPUT BUFFER 


R 
- 108 


3SEE IF ANY ONE BITS CAME BACK 
BIC #*CILF76,RMCS1] ;1S RMCS1 0?? 


t 


SEQ 0052 — 


ere 


g SRR F 
R BBR st 


Bot 
RES 


Ree 


ok ht sh hh a a a 
Ww 
Mor 
‘> 
So 


QEAKUNISSYSVRGRUVLBSaVRARAN=SSBQ 





004737 





TST 2 


001340 
176000 
161577 


023334 


000076 
177777 
177777 


023334 


000000 
000014 
000042 
177701 
001567 
177777 


177777 


177777 
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001366 
001364 


001226 


000000 
000014 
000042 


BNE 20$ zNO!! 
TST RMDAI :1S RMDA 02? 
BNE 20$ ZNO! ! 
BIC AXNUDC ,RMDCI 71S RMDC 0?? 
BNE zNO!! 
BIC AXNUOF , RMOF I 71S RMOF 0 ?? 
BNE ZNO! ! 
CANNOT READ/WRITE A ONE FROM ANY REMOTE REGISTER 
20$: 
FFARR EERE KEKE EREREKEKEREEEREREREREREEEEEREEEREEEREREKEE 
T*TEST 3 MASSBUS INITIALIZE TEST 
JL RARER EREREREREREKEEEKREKKEEREREREREREREREREREEEEEEEKERKKK EK 
TS13: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ZLOAD THE STACK POINTER 
MOV SBASE, :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #3,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR :GO CLEAR CONTROLLER 
;WRITE ONES IN SELECTED REGISTERS 
MOV #ILF76,RMCS1 (RO) :LOAD RMCS1 
MOV #-1,RMER1(RO)  ;LOAD RMER1 
MOV #-1,RMER2(RO)  :LOAD RMER2 
; INITIALIZE MASSBUS WITH A CLEAR 
JSR PC,CNTCLR 7GO CLEAR CONTROLLER 
;READ THE REGISTERS THAT WERE WRITTEN 
MOV RMCS1(RO) ,RMCS1I ;STORE RMCS1 IN INPUT BUFFER 
MOV RMER1 (RO) .RMER1I :STORE RMER1 IN INPUT BUFFER 
MOV RMER2 (RO) .RMER21 :STORE RMER2 IN INPUT BUFFER 
;SEE IF ANY REGISTER BITS WERE CLEARED 
BIS #*CILF76,RMCS11 ;SET ANY BIT NOT WRITTEN 
BIS R2,RMER2I 
CMP #-1,RMCS11 sANY ZEROS IN RMCS1?? 
BNE 10$ *YES!! 
CMe #-1,RMER1I :ANY, ZEROS IN RMERI?? 
CMP #-1,RMERZI1 TANY ZEROS IN RMER2?? 
BNE 10$ 


NONE OF THE BITS WERE CLEARED 
EMT & 


10$: 


2 FEAR EREKEREEEREEREREREREREREREEEEREREEEKEEE 


S*TEST 4 


CLEAR STUC 


K ACTIVE TEST 


CLR EEEEEEAKEEREEERERREEREEEREEREEREEEREREEEEE 
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elma RMO5/3/2 DSKLS TST 2 


CLEAR STUCK ACTIVE TEST SEQ 0054 
006240 TST4: 
006240 000004 SCOPE :SCOPE CALL 
006242 000240 NOP 
006244 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
006250 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
006254 013701 001462 MOV TSTQUE ,R1 :R1_= POINTER TO DEVICE 
nal 006260 012737 000004 001226 MOV #4, STESTN 7;SET TEST NUMBER IN APT MAIL BOX 
139 006266 004737 023334 JSR PC, CNTCLR ;GO CLEAR CONTROLLER 
141 ;WRITE ONES IN TEST REGISTERS 
142 006272 012760 177777 000014 MOV #-1,RMER1(RO) LOAD RMER1 
143 006300 012760 177777 000042 MOV #-1,RMER2(RO) LOAD RMER2 
144 006306 012760 000024 MOV #DMD.RMMR1(RO) [LOAD RMMR1 
146 ;READ TEST REGISTERS AND SEE IF ANY BITS ARE ON 
147 006314 016037 000014 001346 MOV RMER1 (RO) ,RMER1I ;STORE RMER1 IN INPUT BUFFER 
148 006322 016037 000042 001374 MOV RMER2(RO) .RMERZI 7STORE RMER2 IN INPUT BUFFER 
149 006330 016037 000024 001356 MOV RMMR1 (RO) , RMMRT I ZSTORE RMMR1 IN INPUT BUFFER 
150 006336 042737 040000 001346 BIC #UNS ,RMER' I ;DONT ACCEPT UNSAFE 
151 006344 001011 BNE SBRANCH IF ANY OTHER BITS ON 
152 042737 040200 001374 BIC #SKI!DVC,RMER2I :DONT ACCEPT SKI OR DVC 
153 00635 1005 BNE 10$ BRANCH IF ANY OTHER BITS ON 
154 006356 032737 000001 001356 BIT #DMD , RMMR11 I 7BRANCH IF DMD IS ON 
155 006 1001 BNE 10$ 
156 006366 104026 EMT 26 
137 006370 10S: 
159 J FARA EKEEEEKEREREREEEEREREREKEREREREEEEEEEREEEE 
S*TEST 5 TRISTATE TRANSFER TEST 
FARRAR EEERREKEEKKEEEEEEEREEEREEEREEEEEEEREEREKEEEK 
006370 TST5: 
006370 SCOPE ;SCOPE CALL 
006372 240 NOP 
006374 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
006400 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
006404 013701 001462 MOV TSTQUE RI :R1 = POINTER TO DEVICE 
a 006410 012737 001226 MOV #5, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
161 006416 005002 CLR R2 ZCLEAR ERROR FLAGS 
162 006420 004737 023334 JSR PC, CNTCLR 3GO CLEAR CONTROLLER 
164 ;WRITE ONES IN SELECTED REGISTERS 
165 006424 012760 76 000000 MOV #ILF76,RMCS1 (RO) ;LOAD RMCS1 
166 006432 012760 177777 000006 MOV #-1 ,RMDA(R ;LOAD RMDA 
167 006440 012760 177777 000014 MOV #-1,RMER1(RO) LOAD RMER1 
168 006446 012760 177777 000032 MOV #-1,RMOF(RO) LOAD RMOF 
169 006454 012760 177777 000042 MOV #-1,RMER2(RO) = :LOAD RMER2 
171 ;WRITE ZEROS IN SELECTED REGISTERS 
172 006462 012760 000000 000000 ~ “MOV #O.RMCS1(RO) = ;LOAD RMCS1 
173 006470 012760 000000 000006 MOV ;RMDA(RO) [LOAD RMDA 
174 006476 012760 000000 000014 MOV #O.RMER1(RO) § ;LOAD RMER1 
175 006504 012760 000000 000032 MOV #0 RMOF (RO) [LOAD RMOF 
176 006512 012760 000000 000034 MOV #0 RMDC (RO) [LOAD RMDC 
177 006520 012760 000000 000042 MOV #O,RMER2(RO) § :LOAD RMER2 





CZRMQAO RMOS/3/2 DSKLS TST 2 


TRISTATE TRANSFER TEST 


ies Eee 


8 
3 
o 


LSSSLRGRESSSSRLFSRATASIS 
cn 


3 
ae 


205 006706 
206 


230 007020 
231 007026 
232 34 
233 007042 


010237 
005037 


104005 
052702 


004737 





176210 


000000 
000006 
000032 
000034 
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:READ BACK — REST ERO), 


10$: 


JSR 


MOV 
MOV 


WRITE ONES 


RMOF 
RMDC (ROD *RMDCI 
RMER2 (ROS ,RMERZI 


IN SELECTED REGISTERS 
#ILF76,RMCS1(RO) 


#*CKNUER2, RMER2(RO) 


:READ ALL “toad 
etreat’ sRMCSTI 


RMDC (RO) ;RMDCI 


;STORE RMCS1 IN _ BUFFER 
= RMDA IN INPUT BUFF 
ORE RMER1 IN INeuT BUFFER 
" sSTORE rior IN INPUT BUFF 
STORE RMDC_IN INPUT BUF FER 
3STORE RMER2 IN INPUT BUFFER 
rae ~ CONTENT FOR _ZERO BITS WRITTEN & READ 
ee ACCUMULATE ZEROS IN R2 
#*CILF76,RMCS11 SET ALL BITS NOT WRITTEN 
oeame’ RMOF I 


COMPLEMENT REGISTER CONTENTS 
sACCUMULATE ALL ZERO BITS 


BRANCH IF EACH BIT IS ZERO 
ONE OR MORE BIT POSITIONS ARE NOT ZERO 

MOV R2,$BDDAT AVE RESULT FOR TYPE 
; LOAD EXPECTED RESULT 


SET ERROR FLAG 


:GO CLEAR CONTROLLER 

sPRESET SELECTED REGISTERS TO ZEROS 

; (ASSUME RMCS1, R1, RMER2 WERE CLEARED BY INIT) 
MOV LOAD RMDA 


LOAD RMOF 
LOAD RMDC 


R 

LOAD RMER2 

STORE RMCS1 IN INPUT BUFFER 
T BUFFER 


;STORE RMDC IN INPUT BUFFER 


— x — 
gman RMO5/3/2 DSKLS TST 2 MACRO VO3.01 11-APR=80 14:12:35 PAGE 12-5 
ib) TRISTATE TRANSFER TEST 

00 


234 007050 016037 000014 001346 MOV RMER1(RO) ,RMER11 ;STORE RMER1 IN INPUT BUFFER 
935 007056 016037 000042 001374 MOV RMER2(RO) -RMERZI [STORE RMER2 IN INPUT BUFFER 
237 CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & R 
238 007064 042737 177701 001332 BIC #°CILF76,RMCS11 TCLEAR ALL Bits NOT WRITTEN 
239 007072 042737 161577 001364 BIC #XNUOF , RMOF I 
240 007100 042737 176000 001366 BIC #XNUDC 
1 007106 042737 001567 001374 BIC AXNUER2 ,RMERZI 
242 007114 005002 CLR 2 : ACCUMULATE ONES IN R2 
243 007116 053702 001332 BIS RMCS11,R2 ACCUMULATE ALL ONE BITS 
244 007122 053702 001340 BIS Al, 
245 007126 053702 BIS 1, 
246 007132 053702 BIS RMDCI-R2 
247 007136 053702 BIS RMER1{ .R2 
248 007142 053702 001374 BIS RMER21. 
249 007146 022702 177777 CMP #-1,R SEE IF EACH BIT POSITION WAS ONE 
250 007152 001410 BEQ 20$ SBRANCH IF NONE STUCK 
252 ZONE OR MORE BIT POSITIONS ARE NOT ONE 
253 007154 010237 001142 MOV R2, SBDDAT :SAVE RESULT FOR TYPE 
254 007160 012737 177777 001140 MOV #-1, $GDDAT SEXPECTED RESULT 
255 007166 104006 EMT 
007170 052702 000002 BIS #BI1T1,R2 :SET ERROR FLAG 
257 007174 208: 
258 007174 005702 TST R2 ZANY ERRORS DETECTED ?? 
259 007176 001126 BNE 30$ [YES = DONT DO BIT TEST 
266 007. 012702 000001 MOV #1,R2 ‘R2=BIT POSITION 
262 007204 25$: 
007 004737 023334 JSR PC, CNTCLR 7GO CLEAR CONTROLLER 
;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 
265 007210 010260 MOV R2,RMDA (RO) ;LOAD RMDA 
266 007214 010260 000032 MOV R2.RMOF (RO) [LOAD RMOF 
267 007220 010260 000034 MOV R2.RMDC (RO) [LOAD RMDC 
268 007224 010260 000014 MOV R2.RMER1(RO) :LOAD RMERT 
269 007230 010260 000042 MOV R2.RMER2(RO) = LOAD RMER2 
271 ;READ BACK THE REGISTERS 
272 007234 016037 000006 001340 (RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
273 007242 016037 000032 001364 MOV RMOF (ROD -RMOF | [STORE RMOF IN INPUT BUFFER 
274 007250 016037 000034 001366 MOV RMDC(RO)-RMDCI :STORE RMDC IN INPUT BUFFER 
275 007256 016037 000014 001346 MOV RMER1 CROS “Rh ROMER I ;STORE RMER1 IN INPUT BUFFER 
36 007264 016037 000042 001374 MOV RMER2 (RO) RMERDE [STORE RMER2 IN INPUT BUFFER 
CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
279 007272 005003 CLR R3 R3=ACCUMULATED ONE BIT 
280 007274 012704 177777 MOV =1,R4 :R4=ACCUMILATED ZERO BITS 
1 007300 013705 00134 MOV RMDAI ,R5 :GET ANY GOOD BITS FROM RMDA 
007304 050503 BIS RS,R3 
283 007306 005105 COM RS 
007310 040504 BIC R5,R4 
285 007312 013705 001364 MOV RMOF I .R5 :GET GOOD BITS FROM RMOF 
007316 042705 161577 BIC #XNUOF ,R'5 
7 00 050503 BIS R5,R3 
288 007324 60510 COM R5 
289 007326 042705 161577 BIC #XNUOF ,R5 





SEQ 0056 


WWWWNNWAG 
aH Ho ss SS 
OONOULSW 

PS 

~ 

o 


me 
gees 
RSS 


323 450 
324 007454 
325 
326 


000137 


3701 





” inated RMO5/3/2 DSKLS TST 2 
TRISTATE TRANSFER TEST 


290 007332 


001366 
176000 


176000 
001346 


001374 
001567 


001567 
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001226 


BIC R5,RG 
MOV RMDCI,RS :GET GOOD BITS FROM RMDC 
BIC AXNUDC RS 
BIS R5,R3 
COM R5 
BIC #XNUDC RS 
BIC RS RG 
MOV RMERTI .R5 :GET GOOD+ BITS FROM RMER1 
BIS R5,R3 
COM RS 
BIC R5 RG 
MOV RMER21 ,RS :GET GOOD BITS FROM RMER2 
BIC AXNUER2 ,R5 
BIS R5,R3 
COM RS 
BIC AXNUER2 RS 
BIC RS RG 
MOV R2.R5 ;RESET ALL ONES IN R3 EXCEPT 
COM [FOR THE TEST BIT 
BIC R5,R3 
BIC R2.R4 :RESET TEST BIT IN RG 
BIS R4.R3 [COMBINE ACCUMULATED 1°S + O'S 
CMP R3.R2 t1S PATTERN OK?? 
BEQ 26$ YES! ! 
MOV R2,$GDDAT :SAVE TEST PATTERN 
MOV R3.$BDDAT SSAVE RESUL 
EMT 7 
BR 30$ :SKIP TO NEXT 
ZADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST 
ASL R2 :SHIFT THE BIT 
BEQ 30$ ‘EXIT IF DONE 
JMP 25$ 
30$: 
2 SAAR EK -ARBSSSASAALESLASLESLELLESeSS ELS SY 
T*TEST 6 REGISTER SELECT TEST 
2 : MASALA ARAALALASZASASALSSALSEE LESS SES ESET CeCe Cee TCT CSCS SSCL SSS Sa. SY 
TST6: 
SCOPE :SCOPE CALL 
MOV #STACK,SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #6, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 


:THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR 
SEACH DEVICE REGISTER 


RMDS 


: REGISTER REG SEL 
: NAME (16,8,4.2,1) 
: RMCS1 00000 


1 
RMER1 00010 





SEQ 0057 







ee ee ee eee 


393 007660 


CZRMQAO RMOS/3/2 DSKLS 
REGISTER SELECT 


005002 
012703 


001015 
052737 


TST 
TE 


2 
ST 


177777 


023334 


161577 





5 
MACRO VO3.01 11-APR-80 14:12:35 pace 12-7 


001346 
001366 


001366 


; RMR 1 00011 
; RMAS 00100 
. RMDA 00101 
§ RMDT 00110 
: RMLA 00111 
: RMSN 01000 
FY RMOF 01001 
; RMDC 01010 
; RMHR 01011 
é RMMR2 01100 
$ RMER2 01101 
; RMEC1 01110 
3 RMEC2 01111 


EACH wigs rg LINE IS TESTED FOR A STUCK AT a 

sily &. T ZERO FAULT. AS_AN EXAMPLE, TO TEST REG SEL 1 

iF “SoA RMER1 IS WRITTEN WITH ZEROS. THEN THE REGISTER 
SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE 


THE 
:BEING ¢ TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE, 


TTEN WITH ONES. IF SELECT LINE 1 a S-A-0, 


THE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1 

SWILL NOT BE 0 WHEN READ BACK. 
CLR R2 zR2= ZEROS SOURCE 
MOV #-1,R3 :R3= ONES SOURCE 

TEST REG SEL 1 FOR S-A-0 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV R2,RMER1 (RO) LOAD RMER1 
MOV R2,RMDC (RO) LOAD RMDC 
MOV R3,RMMAR1 (RO) LOAD RMAR1 
MOV  RMHR (RO) - RMHR 
MOV RMER1 (RO) , RMER1I STORE RMER1 IN INPUT BUFFER 
MOV RMDC (RO) ANDE | STORE RMDC IN INPUT BUFFER 
CMP R3,RMER11 
BNE 10$ 
BIS #XNUDC ,RMDC I 
CMP R3,RMDCI 
BNE 10$ 
EMT 10 

ios. REG SEL 1 FOR S-A~1 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV R2,RMDA(RO) LOAD RMDA 
MOV oRMOF ( st RMOF 
MOV R2,RMER2 (RO) LOAD RMER2 
MOV -RMAS ( aL RMAS 
MOV R3,.RMSN(RO) RMSN 
MOV R3,RMMR2 (RO) LOAD RMMR2 
MOV RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
MOV RMOF (RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER 
MOV RMER2 (ROS ,RMER2I STORE RMER2 IN INPUT BUFFER 
CMP R3,RMDAI 
BNE 
BIS #XNUOF ,RMOF I 


SEQ 0058 


CZRMQA 
T6 


RMQAQ RMOS/3/2 DSKLS TST ¢ 


REGISTER SELECT 


394 
395 o076r8 


401 

402 007712 
403 007712 
404 007716 
405 007722 


406 726 
407 007732 
408 007736 


020337 
00 


1007 
052737 
020337 
001001 


TES 
001364 


001567 
001374 


161577 
001364 


001567 
001374 
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SEQ 0059 
CMP R3,RMOF I 
BNE 
001374 BIS AXNUER2 , RMER2 1 
CMP R3,RMERSI 
BNE 208 
EMT 11 
JEST REG SEL 2 FOR S=A-0 
JSR PC,CNTCLR 7GO CLEAR CONTROLLER 
MOV R2.RMDA(RO) [LOAD RMDA 
MOV R2.RMOF (RO) [LOAD RMOF 
MOV R2.RMER2(RO) LOAD RMER2 
MOV R3,RMLA(RO) SLOAD RMLA 
MOV R3..RMHR(RO) ‘LOAD RMAR 
MOV R3,RMEC2(RO) § :LOAD RMEC2 
001340 MOV A(RO),RMDAI :STORE RMDA IN INPUT BUFFER 
001364 MOV RMOF (RO), RMOFI :STORE RMOF IN INPUT BUFFER 
001374 MOV RMER2 (RO) ,RMER2I ;STORE RMER2 IN INPUT BUFFER 
CMP R3,RMDAI 
BNE 30$ 
001364 BIS #XNUOF , RMOF I 
CMP R3,RMOF I 
BNE 30$ 
001374 BIS #XNUER2 , RMER2] 
CMP R3,RMER21 
BNE 30$ 
EMT 12 
TEST REG SEL 2 FOR S-A-1 
JSR PC,CNTCLR 7GO CLEAR CONTROLLER 
MOV R2.RMER1(RO)  :LOAD RMER1 
MOV R2.RMDC (RO) TLOAD RMDC 
000000 MOV #ILF76.RMCSI (RO) ;LOAD RMCS1 
MOV R3, RMSN(RO) ;LOAD RMSN 
001346 MOV RMER1 (RO) ,RMER11 ;STORE RMER1 IN INPUT BUFFER 
1366 MOV RMDC(RO),.RMDCI ;STORE RMDC IN INPUT BUFFER 
001346 BIS #*CILF 76. RMER1I 
CMP R3,RMER 
BNE 40$ 
001366 BIS AXNUDC ,RMDC I 
CMP R3,RMDCI 
BNE 40$ 
EMT 13 
JEST REG SEL 4 FOR S-A-0 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV R2.RMER1(RO) = LOAD RMERT 
MOV R2.RMOF (RO) [LOAD RMOF 
MOV 2. RMDC (RO) SLOAD RMDC 
MOV R3.RMDT (RO) ‘LOAD RMDT 
MOV R3.RMER2(RO)  :LOAD RMER2 
MOV R3.RMEC1(R [LOAD RMEC1 
001346 MOV RMER (RO) ,RMER1I ;STORE RMER1 IN INPUT BUFFER 
001364 MOV RMOF (RO), RMOFI ;STORE RMOF IN INPUT BUFFER 








CZRMQAQ RMO5S/3/2 DSKLS TST ¢ 
T6 REGISTER SELECT TES 


451 010174 
452 010202 


7 000034 
pevaat 001346 
161577 
001364 
176000 
001366 
460 010240 
461 


462 
463 010242 
464 0 


000006 
016037 000032 


101577 
16157 
176000 


5 
72 022737 
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SEQ 0060 
001366 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
CMP R3,RMER1 I 
BNE 50$ 
001364 BIS #XNUOF , RMOF I 
CMP R3,RMO 
BNE Pt tales 
001366 BIS AXNUDC, zRMOCI 
CMP R3,RMD 
BNE 50$ 
EMT 14 
TEST REG SEL 4 FOR S=A-1 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV R2.RMDA( SLOAD RMDA 
MOV R2,.RMER2(RO)  :LOAD RMER2 
MOV *RMDS ( ‘LOAD RMDS 
MOV R3,RMOF (RO) [LOAD RMOF 
001340 MOV RMDA(RO),RMDAI STORE RMDA IN INPUT BUFFER 
001374 MOV RMER2 (ROS /RMER2I :STORE RMER2 IN INPUT BUFFER 
CMP SRMDAI 
BNE 60$ 
001374 BIS AXNUER2 , RMER2] 
CMP R3,RMER21 
BNE 60$ 
EMT 15 
TEST REG SEL 8 FOR S-A-0 Me mae nens 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV R2,RMER1(RO) LOAD RMER1 
MOV R2.RMDA(RO) [LOAD RMDA 
MOV R3.RMDC ( [LOAD RMDC 
MOV R3,RMER2(RO) ss: RMER2 
001346 MOV RMER1 (RO) ,RMER1 ;STORE RMER1 IN INPUT BUFFER 
001340 MOV RMDA(RO) ,RMDAI ;STORE RMDA IN INPUT BUFFER 
CMP R3,RMER11 
BNE 70$ 
CMP R3,RMDAI 
BNE 70$ 
EMT 16 
TEST REG SEL 8 FOR S-A-1 
JSR PC,CNTCLR 3GO CLEAR CONTROLLER 
MOV R2.RMOF (RO) [LOAD RMOF 
MOV R2.RMDC(R ‘LOAD RMDC 
MOV R2,RMER2(RO)  :LOAD RMER2 
MOV R3.RMDS(R [LOAD RMDS 
MOV R3,RMER1(RO) § :LOAD RMER1 
MOV 3° RMDA (RO) : RMDA 
001364 MOV RMOF (RO),RMOFI :STORE RMOF IN INPUT BUFFER 
001366 MOV RMDC(RO),RMDCI :STORE RMDC IN INPUT BUFFER 
001374 MOV RMER2 (ROS ,RMER2] ;STORE RMER2 IN INPUT BUFFER 
001364 BIS #XNUOF , RMOF I 
BNE 80$ 
001366 CMP #XNUDC ,RMDC1 
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16 REGISTER SELECT TEST SEQ 0061 
508 010500 020337 001366 CMP R3,RMDCI 
509 010504 001007 BNE B0$ 
510 010506 052737 001567 001374 BIS AXNUER2 , RMER21 
511 010514 020337 001374 CMP R3,RMER2I 
512 010520 001001 BNE 80$ 
513 010522 104017 EMT 17 
314 010524 80$: 
218 sREGISTER SELECT 16 IS TESTED BY THE ILR TEST 
518 FERRER RRR EEERE EEE REE 
SSTEST 7 DRIVE TYPE TEST 
SF AAR REE EER EERE EE 
010524 S17: 
010524 000004 SCOPE :SCOPE CALL 
010526 000240 NOP 
010530 012706 001100 MOV ASTACK, SP ;LOAD THE STACK ie 
010534 013700 001276 MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
010540 013701 001462 MOV TSTQUE, R1 sR1 = BOINTER 7 TO DEVICE 
010544 012737 000007 001226 MOV #7, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
520 010552 016002 000026 MOV RMDT (RO) ,R2 ZSTORE RMDT AT R2 
521 010556 022702 020024 CMP ASNGPRT ,R2 :SINGLE PORT RMO3 ? 
522 010562 001437 BEQ 10$ “YES ! 
523 010564 022702 024024 CMP #DULPRT ,R2 : DUAL ‘port RMO3 ? 
32h 010570 001434 BEQ 10$ “YES ! 
526 010572 022702 020025 CMP #SNGPRT !BITO,R2 : SINGLE PORT RMO2 ? 
527 010576 001431 BEQ 10$ 
528 010600 022702 024025 CMP ADULPRT '!BITO,R2 DUAL ‘port RMO2 ? 
329 010604 001426 BEQ 10$ “YES ! 
531 010606 022702 020027 CMP enamuieanis iaaun ith : SINGLE PORT RMOS ? 
532 010612 001423 BEQ 10$ SYES ! 
533 010614 022702 024027 CMP ADULPRT'BIT1!BITO,R2 ‘DUAL ‘port RMOS ? 
334 010620 001420 BEQ 10$ 
536 010622 010237 001142 MOV R2,$8DDAT ;GET RECIEVED DRIVE TYPE 
537 010626 012737 020024 001174 MOV #SNGPRT ,STMPO ;GET EXPECTED DRIVE TYPE 
538 010634 012737 024024 001176 MOV MDULPRT.$TMP1 —: - “ 
539 010642 010037 001136 MOV RO, $8DADR ;LOAD BAD ADDRESS 
540 010646 062737 000026 001136 ADD ARMDT , SBDADR 
541 010654 104057 EMT 57 
542 010656 000137 021320 JMP SEOSP :GO TO NEXT DEVICE 
243 010662 10$: 
545 } J EERE 
:*TEST 10 DEVICE AVAILABLE TEST 
CF AAR EREREREEEEREEEREREEEEEEREERERERERERREREE 
010662 TST10: 
010662 000004 SCOPE 7SCOPE CALL 
010664 000240 NOP 
010666 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
010672 013700 001276 MOV S$BASE ,RO :RO = UNIBUS ADDRESS 
010676 013701 001462 "40 TSTQUE ,R1 R1 = POINTER TO DEVICE 








RMQAO RMO5/3/2 DSKLS TST 2 


0 


DEVICE AVAILABLE TEST 


010702 
547 010710 


554 010746 
555 
010746 
010746 


557 
558 
559 010774 
560 


012737 


012737 
004737 


000402 
104000 
000462 


012737 
777 


000010 
023334 
000000 
173777 


004000 
001136 


000014 
157777 
001140 
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001226 MOV #10,$TESTN 37SET TEST NUMBER IN APT MAIL BOX 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
001142 MOV RMCS1 (RO), SBDDAT™ 3; STORE a AT $BDDAT 
001142 BIC #*CDVA, SBDDAT ; CLEAR ALL BUT DVA 
BNE 10$ ‘BRANCH H IF DVA SET 
001140 MOV #DVA,$GDDAT sSETUP EXPECTED 
MOV RO, $BDADR :SE TUP REG ADDRESS 
EMT 60 
10$: 
FERRARA EE 
SSTEST 11 SEARCH TIMEOUT TEST 
nthe nee eee ee 
TST11: 


SCOPE 

NOP 

MOV AMSTACK, SP 
MOV : 
MOV TSTQUE ,R1 


:SCOPE CALL 


LOAD THE STACK POINTER 
;RO = UNIBUS ADDRESS 
R1_= POINTER TO DEVICE 


001226 MOV #11, $TESTN ::;SET TEST NUMBER IN APT MAIL BOX 
;LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS 
001414 MOV #0,.RMDAO ECTOR=0=TRACK 
001442 MOV #0.RMDCO :CYLINDER=O 
001440 MOV #FMT16,RMOFO  :16 BIT FORMAT 
001412 MOV ABUFFER,RMBAO STARTING BUFFER ADDRESS 
001410 MOV #~1 ,RMWCO WOR 
001406 MOV #WD'GO,RMCS10 :WRITE DATA COMMAND 
JSR PC, ENBSCH ZEXECUTE DATA COMMAND TO POINT WHERE 
ZSEARCH IS ENABLED USING SUBROUTINE. 
BR 10$ [BRANCH TO 10$ IF NO ERROR 
BR 50$ :SLOC REST PF TEST 
{START THE CLOCK AND WAIT FOR 100 MS 
001530 “MoV #100. WATCH zSET WATCHDOG TIMER VALUE 
JSR PC,acLOCk SSTART THE CLOCK 
20$: TST WATCH 
BNE 20$ 


JSR PC,a@STOP 


001142 


STOP THE CLOCK 


:VERIFY THAT OPI IS NOT SET (SEARCH TIMEOUT IS DISABLED) 
MOV RMER1 (RO) , SBDDAT TORE 


e Pi 


aay $BDDAT 


MOV 0, $8D SET UP FOR ERROR 
001136 ADD #RMER1 , SBDAD 
001142 BIC #*COPI , SBDDAT 

BEQ 30$ BRANCH IF NO ERROR 

CLR S$GDDAT 

EMT 20 

:DISABLED 
BR 50$ :SKIP 


sENABLE SEARCH TIMEOUT, THEN WAIT 100 MS 





SEQ 0062 


. a 
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T11 SEARCH TIMEOUT TEST SEQ 0063 
588 011136 30$: 
589 011136 012760 041401 000024 MOV #DMD ' MUR! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
590 011144 012737 000144 001530 MOV #100. ,WATCH ;SET WATCHDOG TIMER VALUE 
011152 777 =170354 JSR PC, ,aCLOCK ;START THE CLOCK 
591 011156 005737 001530 40$: TST WATCH 
592. 011162 001375 BNE 40$ 
393 011164 777 170344 JSR PC, aSTOP :STOP THE CLOCK 
595 30PI SHOULD NOW BE SET (SEARCH TIMEOUT IS ENABLED) 
59 011170 016037 000014 001142 MOV RMER1 (RO) , $BDDAT sSTORE RMER1 AT $BDDAT 
597 011176 042737 157777 001142 BIC #*COPI , $BDDAT 
598 011204 001004 BNE 50 
599 011206 012737 020000 001140 MOV #OP1,$GDDAT 
600 011214 104021 EMT 21 
601 011216 50S: 
603 J FARE 
7*TEST 12 SET DTE TEST 
‘ FARRER 
011216 TST12: 
011216 SCOPE :SCOPE CALL 
011220 000240 NOP 
011222 012706 001100 MOV ASTACK, SP ;LOAD THE STACK POINTER 
011226 013700 001276 MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
011232 013701 001462 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
60% 011236 012737 000012 001226 MOV #12, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
605 011244 010037 001136 MOV RO, $BDADR ;SETUP ERROR MSG 
606 011250 062737 000014 001136 ADD #RMER1, SBDADR 
607 011256 005037 001140 CLR SGDDAT 
609 : INITILAIZE AND VERIFY THAT DRIVE TIMING ERROR IS RESET 
oi 011262 004737 023334 JSR PC,CNTCLR :GO CLEAR CONTROLLER 
612 011266 016037 000014 001142 MOV RMER1(RO), — ;STORE RMER1 AT S8DDAT | 
613 011274 042737 167777 001142 BIC #*CDTE, $BDDA | 
614 011302 001402 BEQ 10$ ;BRANCH IF DTE=0 | 
615 011304 104031 EMT 31 
ele 011306 000517 BR 50$ ;SKIP REST OF TEST 
dh 4 011310 ioe! MAINTENANCE INDEX PULSE AND VERIFY DTE REMAINS RESET 
620 011310 012760 000001 000024 MOV #DMD.RMMR1(RO) :LOAD RMMR1 
621 011316 012760 000005 24 MOV ADMD (MI RMMR1 (ROS ;LOAD RMMR1 
2 011324 016037 000014 001142 MOV RMER1 (RO) ,SBDDAT [STORE RMER1 AT $BDDAT 
3 011332 042737 167777 001142 BIC #*CDTE, SBDDAT 
624 011340 001402 BEQ 20$ 
625 011342 104000 EMT 
626 011344 000500 BR 508 ; COMPARE SHOULD BE RESET 
628 ;EXECUTE DUMMY DATA COMMAND TO ENABLE SEARCH 
629 011346 20$: | 
630 011346 012737 000000 001414 MOV #0, RMDAO 
631 011354 012737 000005 001442 MOV #5 .RMDCO 
632 011362 012737 010000 001440 MOV #FMT16,RMOFO 
633 011370 012737 054244 001412 MOV #BUF FER, RMBAO 





634 011376 
635 011404 


6 

637 011412 
011416 
011420 

638 011422 


WES 


Pa a at 
RRO 


wes S 


RES 


g 
Soooooo 
tb ad od aod od od 


CZRMQAO RMOS/3/2_ DSKLS 
1 SET DTE TEST 


ot 2737 
012737 


004737 


012760 
012760 


016037 
7 


012702 


TST 2 
177777 
000061 


023430 


051441 
051401 


000014 
167777 


051403 
051443 
051403 


051441 
051401 
000014 
167777 
010000 
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000024 
000024 


001225 


sINITILAIZE AND SET THE FORMAT BIT, USE INDEX PULSE TO CLEAR FORMAT CHANGE 


MOV #=-1 ,RMWCO 
MOV #WD'GO,RMCS10 
JSR PC,ENBSCH sEXECUTE DATA COMMAND TO POINT WHERE 
;SEARCH IS ENABLED USING SUBROUTINE. 
ony 30$ ‘BRANCH TO 30$ IF NO ERROR 
BR 50$ 
;WITH SEARCH ENABLED, SET AND RESET SECTOR PULSE TO SET ENABLE 
sine FLOP. 
MOV. #DMD 'MUR'!DBEN'MOC!DTO!MS,RMMR1 ee ;LOAD RMMR1 
MOV ADMD 'MUR!DBEN! MOC !DTO, RMMR 1 (RO) ;LOAD RMMR1 
;SET SECTOR PULSE AND VERIFY DTE DOES NOT SET 
é PUTMR1 #DMD!MUR!DBEN!MOC!DTO!MS 
3 PUTMR1 #DMD'MUR!DBEN!MOC !DTO 
MOV RMER1(RO), + ad ;STORE RMER1 AT S8DDAT 
BIC A*CDTE, SBDDA 
BEQ 40$ 
EMT 23 
BEQ 50$ ;COMPARE SHOULD BE RESET 
+ tae SECTOR COMPARE 
; MOV #DMD '! MUR ' DBEN! MOC !DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD 'MUR'DBEN!MOC!DTO'MSC IMS, RMMR1(RO) ;LOAD RMMR1 
MOV #DMD !MUR'DBEN!MOC!DTO!MSC, RMMR I (RO) OAD RMMR1 
;SET SECTOR PULSE AND VERIFY DTE SETS 
MOV ADMD 'MUR '!DBEN! MOC !DTO!MS ,RMMR1 2 ;LOAD RMMR1 
MOV 'MUR'DBEN! MOC 'DTO, RMMR1 (RO) :L 1 
MOV RMER1 (RO), +1 ated s STORE RiERT AT S8DDAT 
BIC #°CDTE, SBDDAT 
BNE os 
MOV ADTE ,SBDDAT 
EMT 24 
;SECTOR COMPARE SET 
50$: 
ne REKERAEEKEEEEAEKKKEKEEEEREEEEEEKEEEEEEEEEEREREEEEEEREREREREEEEREKEEEEK 
;*TEST 13 FORMAT CHANGE TEST 
7) aaa acetate aia ch eal ea a a nanenian aati 
TST1 
Score :SCOPE CALL 
MOV ASTACK,SP :LOAD THE STACK POINTER 
MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #13, STESTN 7:SET TEST NUMBER IN APT MAIL BOX 
MOV #50$,R2 :R2=TABLE POINTER 


SEQ 0064 



















% 
3 
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678 011600 10S: 
679 011600 004737 023334 JSR CNTCLR 60 CLEAR CONTROLLER 
680 011604 011260 000032 MOV (Rds ,RMOF (RO) LOAD FORMAT MODE IN 
681 011610 012760 000001 000024 MOV *RMMR1(RO) =LOAD RMMR1 
682 011616 012760 000005 000924 MOV #DMD (MI, RMMR1 (ROS :LOAD RMMR1 
684 ;SETUP AND EXECUTE DUMMY DATA COMMAND USING OPPOSITE FORMAT 
685 011624 012737 000000 001414 MOV i 
686 011632 012737 000005 001442 MOV #5,RMDCO 
687 011640 016237 000002 001440 MOV 2(R2) ,RMOFO 
688 011646 012737 054244 001412 MOV #BUF FER ,RMBAO 
689 011654 012737 177777 001410 MOV #-1 ,RMWCO 
690 011662 012737 000061 001406 MOV #wD!GO,RMCS10 
692 011670 004737 023430 JSR PC, ENBSCH :EXECUTE DATA COMMAND TO POINT WHERE 
:SEARCH IS ENABLED USING SUBROUTINE. 
011674 000402 BR 20$ ‘BRANCH TO 20$ IF NO ERROR 
011676 104000 EMT 
695 011700 000514 BR 60$ 
695 FORMAT CHANGE FLOP SHOULD BE SET - VERIFY BY TRYING TO FORCE A 
696 eee ;DRIVE TIMING ERROR WHICH SHOULD NOT SET. 
698 011702 012760 051403 000024 MOV #DMD 'MUR ! DBEN!MOC !DTO!MSC ,RMMR1 (RO) ZLOAD RMMR1 
699 011710 012760 051443 000024 MOV #DMD 1MUR! DBEN!MOC DTO!MSCIMS R RAR (RO) :LUAD RMMR1 
700 011716 012760 051403 000024 MOV ADMD MUR | DBEN' MOC 'DTO!MSC .RMMR1 (RO) *LOAD RMMR1 
701 011724 012760 051401 000024 MOV ADMD ‘MUR! DBEN!MOC !DTO, pt nand sLOAD RMMRI 
703 :VERIFY THAT DRIVE TIMING ERROR DIDNT SET 
704 011732 016037 000014 001142 MOV RMER1 (RO) , $8DDAT ;STORE RMER1 AT ‘ gupoat 
705 011740 042737 167777 001142 BIC #*CDTE, $BDDAT 
706 011746 001416 BEQ 30$ 
707 011750 010037 001136 MOV RO, $8DADR ;SETUP ERROR MESSAGE 
708 011754 062737 000014 001136 ADD #RMER1 , SBDADR 
709 011762 005037 001140 CLR SGDDAT 
710 011766 011237 001174 MOV $TMPO 
711 011772 016237 000002 001176 MOV Ke58 $TMP1 
712 012000 104025 EMT 25 
213 012002 000453 BR 60$ ZA FORMAT CHANGE 
715 -CLEAR THE FORMAT CHANGE FLOP W/INDEX PULSE 
716 012004 30$: 
7 012004 012760 051405 000024 MOV #DMD 'MUR! DBEN! MOC !DTO!MI,RMMR1 (RO) ZLOAD RMMR1 
719 ENABLE SEARCH AND FORCE SECTOR COMPARE 
720 012012 012760 051403 000024 #DMD 'MUR! DBEN'MOC 'DTO!MSC ,RMMR1 (RO) :LOAD RMMR1 
721 012620 012760 051443 000024 mov ADMD 'MUR'DBEN'MOC'DTO'MSC'MS,RMMR1(RO) LOAD RMMR1 
ree 012026 012760 051403 000024 MOV #DMD 'MUR | DBEN! MOC 'DTO'MSC .RMMR1 (RO) [LOAD RMMR1 
724 ;SET DTE W/ANOTHER SECTOR PULSE = VERIFY DTE IS SET 
725 012034 012760 051441 000024 MOV #DMD 'MUR ! DBEN!MOC !DTO!MS ,RMMR1 (RO) [LOAD RMMR1 
726 012042 012760 051401 000024 MOV #DMD ‘MUR 'DBEN'MOC!DTO;RMMR1(RO) :L 
727 012050 016037 000014 001142 MOV RMER1 (RO), SBDDAT STORE RERT AT $BDDAT 
728 012056 042737 167777 001142 BIC #*CDTE, SBDDAT 
29 012064 001012 BNE 40$ 
730 012066 010037 001136 MOV RO, SBDADR ;SETUP ERROR MESSAGE 
731 012072 062737 000014 ADD #RMER1 , SBDADR 








SEQ 0065 


2 
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732 012100 
7335 012106 
734 012110 
735 
736 
737 012112 
738 012112 
739 012116 
740 012120 
741 012122 
742 
743 012124 
744 012126 
745 012130 
746 012132 
747 
748 
012132 
012132 
012134 
012136 
012142 
012146 
012152 
749 
750 012160 
751 012164 
752 012170 
753 
54 


7 
755 012176 
756 012204 
757 012210 
012210 
758 012216 
759 012224 
760 01 
761 012240 
762 012242 
763 012244 
764 012246 
765 012252 
766 012254 
767 012256 
768 Bssos 
769 012270 
770 012276 


771 012304 
772 012312 
773 4 


776 012326 
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012737 010000 001140 
104027 


000410 
022702 
001005 
005722 
000626 
010000 
000000 
010000 


2760 


C12124 


004001 
000001 
000024 
177737 
001140 
000021 
004001 
000001 
000024 
177737 


000040 


001226 


001136 
000024 
000024 


000024 
001142 
001142 


000024 
000024 
001142 
001142 


001140 





MOV #DTE,SGDDAT 
EMT 27 
BR  =—s«éG OS 
D0 TEST W/18 TO 16 FORMAT CHANGE DURING SECOND EXECUTION 
"(Mp #50$,R2 
BNE 60$ ;BRANCH IF DONE TEST 
TST (R2)+ [MOVE POINTER 
BR 10$ SREPEAT TEST 
50S: .WORD FMT16 316-18 FORMAT CHANGE 
“WORD 0 718-16 FORMAT CHANGE 
“WORD FMT16 
60S: ZEND OF TEST 
RRR REE REE RERERRE RRR ERE EREREEEERERRER EERE RRR ERE 
TRTEST 14 PROM STROBE TEST 
LARA RARER KEREREREREAEREEREEREREEREEEREEREEEKEEEREREKEEEEERREEREE 
TST14: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV S$BASE, [RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 ‘R1 = POINTER TO DEVICE 
MOV #14, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
JSR PC,CNTCLR :G0 CLEAR CONTROLLER 
MOV RO. $BDADR ‘SETUP ERROR MESSAGE 
ADD #RMMAR1 , SBDADR 
;SET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE 
MOV #DMD,.RMMR1(RO) ;LOAD RMMR1 
* MOV #17. .R2 sR2=MAXIMUM # CLOCK PULSES 
; MOV #DMD !MCLK RMMR1 (RO) ZLOAD RMMR1 
MOV RMMR1 (RO) Loa RMMR 1 
MOV ROP (ROD SEDDA :STORE RMMR1 AT $BDDAT 
BIC #*CWC, SBDDAT 
BEQ 6$ 
DEC R2 
BNE 5$ 
CLR SGDDAT 
EMT 
BR 60S 
68: MOV #17. ,R2 
"mov ADMD !MCLK ,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD.RMMRI(RO) ;LOAD 1 
MOV RMMR1 (RO), $BDDAT :STORE RMMR1 AT SBDDAT 
BIC #*CWC,SBDDAT 
BNE 20$ :EXIT L 2P WHEN PROM STROBE ON 
BNE 10$ 
MOV #uC.SGDDAT 


SEQ 0066 


8 


© 00 Co Co Cd Co Oo Oo Co 
ee ed ed ed ed ed od od 
DONAUSWN-—O 





012702 


104032 
0004 
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000003 
004001 
000001 
000024 
177737 


000040 


000010 
soa 


000024 
177737 
001140 
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2 


— 
— 
EM 
MNES 


001140 


BR 60$ 
VERIFY PROM STROBE IS ON FOR 3 BIT CLOCKS 
#3. ,R2 
258: 
MOV ADMD !MCLK,RMMR1 (RO) :LOAD RMMR1 
MOV “RMMRI(RO) cL 
V RMMRi (RO), $BDDAT ;STORE RMMR1 AT S$BDDAT 
BIC #*CWC, 
BNE 30$ ;BRANCH IF PROM STORBE DID NOT 
[DROP EARLY 
MOV HC ,SGDDAT 
EMT 32 
BR 60$ 
30$: DEC R2 
BNE 25$ 
; VERIFY PROM STROBE IS OFF FOR 8 BIT CLOCKS 
vam MOV #8..R2 | 
MOV ADMD !MCLK,RMMR1 (RO) :LOAD RMMR1 
MOV ADMD .RMMRI(RO) :LOAD RMMR 
MOV RMMR | tROD, SBDDAT ;STORE RMMR1 AT SBDDAT 
BIC #*CWC, SBDDAT 
BEQ 50$ :BRANCH IF PROM STROBE 
CLR SGDDAT [DID NOT SET EARLY 
EMT 33 
BR 60$ 
50$: DEC R2 
BNE 40$ 
60$: 
FERRARA EREREREEEREEEEEEREREEEEERERERERERREEEREREREEEEREEEE 
tSTEST 15 SYNC WORD COUNT INHIBIT TEST 
2 LARA REE REREEEEEREEEEAEEREEREREREREREREREREEREREREREE 
TST15: 


a SCOPE CALL 
MOV MSTACK, SP LOAD THE STACK POINTER 


MOV SBASE ,RO ;RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 R1_= POINTER TO DEVICE 

MOV #15, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
sSETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES 

MOV #5 ,RMDCO 7 CYLINDER=5 

MOV #0,,RMDAO :SECTOR=0, TRACK=0 

MOV #FMT16, RMOFO 316 BI 


6 
MOV WBUFFER,RMBAO STARTING BUFFER ADDRESS 
MOV #~1 ,RMWCO WORD COUNT 

MOV #WD'GO,RMCS1O WRITE DATA COMMAND 


JSR PC, ENBSCH EXECUTE DATA COMMAND TO POINT WHERE 
;SEARCH IS ENABLED USING SUBROUTINE. 
10$ BRANCH TO 10$ IF NO ERROR 


SEQ 0067 


He 
873 012736 


104000 
000555 


012702 


012760 
012760 


022702 
001414 


012760 
012760 


016003 
032703 
001365 
000724 


012702 
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000562 
004737 
000402 


024302 


000012 


055401 
051401 


000024 
000040 


000020 
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000024 
000024 


001142 


001136 


000024 
000024 


SEQ 0068 
BR 120$ SKIP IF FAILURE 


JSR PC,SCTCMP ;FORCE SECTOR COMPARE USING SUBROUTINE 
BR 208 ;BRANCH TO 20$ IF NO ERROR 


10$: 


EMT 
BR 120$ 
:CAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET 


- STEP THE SEQUENCER TO LOCATION 10(10) WHILE CHECKING ‘“PLFS'’ 
20S: #0,R2 yR2=SEQUENCER ADDRESS 


PULSE MAINTENANCE CLOCK UNTIL PROM STROBE SETS 
“MOV ADMD 'MUR'DBEN!MOC!DTO!MCLK,RMMR1(RO) LOAD _RMMR1 
MOV #DMD 'MUR | DBEN'MOC'DTO.RMMRI(RO) :LOAD RMMR1 


SEE IF PROM STROBE IS SET 
MOV RMMAR1 (RO) .R3 :STORE RMMR1 AT R3 
BIT MWC RS 
BEQ 30$ ISSUE NEXT BIT CLOCK 
INC R2 2 INCREMENT SEQUENCER ADDRESS 


3 CHECK el FOR Ay = SHOULD BE ZERO UNTIL LOCATION 11 


BIC PCPLFS. ASBDDAT 
BEQ 5 :BRANCH IF PLFS IS ZERO 


MOV RO, $BDADR 
ADD 1, $8DADR 
MOV R2,$TMPO 


120$ SKIP REST OF TEST 
Sy LOOP IF SEQUENCER NOW AT LOCATION 10 

a 
inst MAINTENANCE CLOCK UNTIL PROM STROBE RESETS 


MOV #DMD '!MUR ! DBEN!MOC !DTO!MCLK RAR (RO) ;LOAD RMMR1 
MOV #DMD 'MUR ' DBEN'MOC'DTO.RMMR1(RO) :LOAD RMMR1 


SEE IF PROM —_—, i° RESET 
MOV (RO) .R3 STORE RMMR1 AT R3 
BIT MIC, moc RS 
BNE 608" 
BR 30$ :GO STEP SEQUENCER TO NEXT LOC 


: THE NEXT PROM STROBE SHOULD SET ‘PLFS'*’ AT LOCATION 11(10) OF THE 
;DATA TIMING SEQUENCER. 


70S: 
MOV #16. ,R2 ;R2=NUMBER OF BIT CLOCKS 
pd SsuE 16 BIT CLOCKS TO GET NEXT PROM STROBE 


Lita caesar clearence eesti nieldicace pane tctacs wcmemmels ection 
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018760 055401 
051401 
007376 


000024 
042737 175777 


00 

012737 002000 

010037 001136 
000024 


012702 000003 


012760 055401 
012760 051401 


012702 000040 


012760 055401 
012760 051401 
016003 000024 
042703 177737 


2328 
NYS 
Wo 

nN 
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4s 
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000024 
000024 


001142 
001142 


001140 
001136 


000024 
000024 


006024 
000024 


001136 


001226 


MOV #DMD MUR! DBEN!MOC !DTO!MCLK,RMMR1 (RO) 
MOV #OMD MUR !DBEN!MOC !DTO, SRMMRI(RO) ; 


VERIFY THAT hat iene SET 
MOV 1(RO) , SBDDAT 
ne PoCPLES. SBDDAT 


;LOAD RMMR1 
OAD RMMR1 


STORE RMMR1 AT SBDDAT 


;LOAD RMMR1 


90$ ;BRANCH IF PLFS IS SET 

MOV WPLFS, SGDDAT TSETUP ERROR MESSAGE 
MOV RO, $BDAD 
ADD ARR, SE DADR 
EMT 5 
BR 1208 ;SKIP REST OF TEST 

g4SSUE 3 MORE BIT CLOCKS TO RESET PROM STROBE 

ies MOV #3,R2 

"MoV #DMD !MUR ! DBEN!MOC !DTO!MCLK,RMMR1 (RO) 

MOY #DMD MUR | DBEN!MOC !DTO, RAP (RO) ;LOAD RMMR1 
BNE 95$ 


MOV #32. .R2 3R2=NUMBER OF BIT CLOCKS 
ine BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET 


zWITH sear FOR SYNC SET, FURTHER BIT CLOCKS SHOULD NOT SET 


MOV ADMD 'MUR'DBEN!MOC!DTO!MCLK,RMMR1(RO) =: LOAD _RMMR1 
MOV ADMD 'MUR' DBEN'MOC!DTO.RMMR1(RO) ;LOAD RMMR1 
MOV RMMR1(RO).R3 -; STORE RMMR1 AT R3 
BIC #*CWCR3 
BEQ 110$ ;BRANCH IF PROM STROBE IS 0 
CLR $GDDAT SSETUP ERROR MESSAGE 
MOV R3,$BDDAT 
MOV RO, $BDADR 
ADD ARMMR1 , SBDADR 
EMT 
BR 120$ 
110$: DEC R2 ZCONTINUE FOR 32 BIT CLOCKS 
BNE 100$ 
1203: ZEND OF TEST 
SERA ERERAEREAAEREREREREREREREEEEEEAEEAEARERAEEEEAEEERERRERREE 
*STEST 16 SYNC DETECTION TEST 
TOO eit emacs cna a ata ae pa as arnt Ont einem 
TST16: 
SCOPE :SCOPE CALL 
MOV #STACK, SP :LOAD THE STACK POINTER 
MOV $BASE RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #16,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 


zp RMO5/3/2 DSKLS TST 2 MACRO VO03.01 11=-APR-80 14:12:35 PAGE E bas 
T16 SYNC DETECTION TEST SEQ 0070 


920 

921 SETUP REGISTER OUTPUT BUFFER ag aa INES 

922 013156 012737 000000 001414 MOV #0, 0 :$ eS TRACK 0 

923 013164 012737 000005 001442 MOV #5 ,RMDCO ; CINDER 5 

924 013172 012737 010000 001440 MOV #FMT 16, RMOFO 316 BIT MODE 

925 013200 012737 054244 001412 MOV MBUFFER,RMBAO ;BUFFER ADDRESS 

001410 MOV #-1 ,RMWCO sC COUNT 
927 013214 012737 001406 MOV #RD'GO,RMCS1O READ DATA COMMAND 
929 013222 004737 023430 JSR PC, ENBSCH 4 yy DATA COMMAND TO POINT WHERE 
ARCH IS ENABLED USING SUBROUTINE. 

013226 900402 BR 10$ :BRANCH TO 10$ IF NO ERROR 
013230 104000 EMT 

930 013232 000550 BR 100$ 

931 013234 10$: 

932 013234 004737 024302 JSR PC,SCTCMP FORCE SECTOR COMPARE USING SUBROUTINE 
013240 000402 BR 20$ :BRANCH TO 20$ IF NO ERROR 
013242 104000 EMT 

933 013244 000543 BR 100$ 

934 013246 208: 

935 013246 004737 024410 JSR PC,SETLFS 3SET "LOOKING FOR SYNC‘ USING SUBROU’ INE 
013252 000402 BR 30$ :BRANCH TO 30$ IF NO ERROR 
013254 104000 EMT 

936 013256 000536 BR 100$ 


CLOCK ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 


| 

| 

| 

926 013206 012737 177777 
000071 


939 “(USING PROM STORBE AS INDICATION) 
940 013260 30$: 
941 013260 012702 000020 MOV #16. ,R2 ;NUMBER OF ONE BITS 
942 013264 010037 001136 MOV RO, $8DADR SETUP ERROM MESSAGE 
943 013270 062737 000024 001136 ADD AROMR 1, R 
944 013276 005037 001140 CLR $GDDAT 
945 013302 012760 053401 000024 wo. MOV WMRIAAA'MRD,RMMR1(RO)  ;LOAD RMMR1 
947 013310 012760 057401 000024 MOV AMRIAAA'MRD 'MCLK,RMMR1 (RO) ;LOAD RMMR1 
948 013316 012760 053401 000024 MOV #MRIAAA MRD ; Ren (RO)  ;LOAD RMMR1 
949 013324 016037 000024 001142 MOV RMMR1 (RO) , SBDDAT *STORE RMMR1 AT SBDDAT 
013332 042737 177737 001142 BIC #*CWC, SBDDAT 
951 013340 001405 BEQ 
3342 012737 177777 001174 MOV #177777, $TMPO 
953 013350 104037 EMT 37 
954 013352 000500 BR 100$ 
955 013354 50S: 
956 013354 005302 DEC R2 ;REPEAT FOR 16 BITS 
957 013356 001354 BNE 40$ 
013360 012702 000020 MOV #16. ,R2 ;NUMBER OF ZERO BITS 
;CLOCK ALL ZERO SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 
961 013364 60$: 
01 012760 055401 000024 MOV AMRIAAA'MCLK,RMMR1(RO) :LOAD RMMR1 
963 013372 012760 051401 000024 MOV #R1AAA_RMMRI (RO) : LOAD RMMR 1 
013400 016037 000024 001142 MOV RMMR1 (RO), $BDDAT STORE RMMR1 AT SBDDAT 
965 013406 042737 177737 001142 BIC #*CWC,SBDDAT § ;MAKE SURE SYNC NOT DETECTED 
966 013414 001404 BEQ 70$ 
967 013416 005037 001174 CLR $TMPO 
968 013422 104037 EMT 


37 
969 013424 000453 BR 100$ ;SKIP IF FAILURE 
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00004 
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70$: 
DEC B2 :REPEAT FOR 16 BITS 
MOV #32. R2 ;R2=NUMBER OF BITS 
MOV #000031 ,R3 [R3=SYNC PATTERN FOR LEFT SHIFT 


:CLOCK THE BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS 
001432 80$: MOV #MRIAAA,RMMR10 ;GENERATS VALUE OF RMMR1 


CLC 'CLEAR THE CARR 
ROR R3 ‘SHIFT RIGHT 
BCC 90$ ‘BRANCH IF C BIT CLEAR 
001432 oe BIS #MRD .RMMR10 :SET MRD IF PATTER BIT SETS 
000024 "Mov RMMR10, RMMR1 (RO) ZLOAD RMMR1 
001432 BIS AMCLK,RMMR10 ZSET THE MAINTENANCE DATA CLK 
24 MOV RMMR10, RMMR1 (RO) +L 1 
001432 BIC #MCLK ,RMMR10 ;RESET BIT CLOCK 
000024 MOV RMMR10,RMMR1 (RO) RMMP.1 
001142 MOV RMMR1 (RO), SBDDAT ‘STORE RMMR1 AT $BDDAT 
001142 BIC #°CWC, SBDDAT 
BNE 100$ :BRANCH IF PROM STROBE IS SET 
DEC R2 SCONTINME FOR 16 BIT CLOCKS 
BNE 80$ 
001140 MOV #WC, SGDDAT 
EMT 40 
100$: ZEND OF TEST 
SIAR 
[*TEST 17 ABORT SYNC DETECTION TEST 
2 ie aaa nats aaa na tanta ati iin 
18117: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 [R1_ = POINTER TO DEVICE 
001226 MOV #17, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES 
001414 MOV #0.RMDAO sSECTOR 0, TRACK 0 
001442 MOV #5 RMD [CYLINDER 5 
001440 MOV SFATI 6. BMOFO 716 BIT FORMAT 
001412 MOV #BUFFER,RMBAO :STARTING BUFFER ADDRESS 
001410 MOV #-1,RMWCO : COUNT 
001406 MOV #RD'GO,RMCS10 READ DATA COMMAND 
JSR PC,ENBSCH yEXECUTE DATA COMMAND TO POINT WHERE 
7SEARCH IS ENABLED USING SUBROUTINE. 
BR 10$ [BRANCH TO 10$ IF NO ERROR 
we BR 50$ 
" «JSR PC, SCTCMP ZFORCE SECTOR COMPARE USING SUBROUTINE 
BR 20$ [BRANCH TO 20% IF NO ERROR 


SEQ 0071 


--——— -———- 
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000024 
177737 
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208 BR 50$ 
JSR PC,SETLFS ;SET "LOOKING FOR SYNC‘ USING SUBROUTINE 
ont 30$ sBRANCH TO 30$ IF NO ERROR 
BR 50$ 


sLOOKING FOR SYNC INHIBITS WORD CLOCK ye "DRIVE TIMING ERROR’ 


7SHOULD RESET ‘LFS WORD COUNT INHIBIT” FL 
gEORCE DRIVE TIMING ERROR 
000024 "mov #MRIAAA'MS,RMMR1(RO) —— ; LOAD _RMMR1 


;PULSE yy ® oe AND VERIFY PROM STROBE SETS 
#16. .R2 :R2, NUMBER OF BIT CLOCKS 


40$: 
000024 MOV AMR IAAA'MS 'MCLK,RMMR1 (RO) ;LOAD RMMR1 
000024 MOV #MRTAAA'MS .RMMRI (RO) ;LOAD RMMR1 
001142 MOV RMR 1 (RO) x $BDDAT :STORE RMMR1 AT $SBDDAT 
001142 BIC #*CwWC, SBDDA 
BNE 503 
DEC R2 
BNE 40$ 
001140 MOV MWC ,SGDDAT 
MOV RO, $BDADR 
001136 ADD #RMMR 1, SBDADR 
EMT 
50$: 
3 FREER ERE EEEEEREEEEEE 
T*TEST 20 SYNC GENERATION TEST 
5 AAA AERA EERERERREEEEEREEREEEEEREREEEEEEEREEEEE 
TST20: 
5 al ;SCOPE CALL 
MOV AMSTACK, SP ;LOAD THE STACK POINTER 
MOV P RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 37R1 = POINTER TO DEVICE 
001226 MOV #20, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES 
001414 MOV #0 ,RMDAO asec Ton 0, TRACK 0 
001442 MOV #5 .RMDCO 5 
001440 MOV #FMT16,RMOFO 6 BIT MODE 
001412 MOV #BUF FER ,RMBAO BUFFER ADDRESS 
001410 MOV #-2 ,RMWCO WORD COUNT 
001406 MOV MH! GO,RMCS10 ;WHITE HEAD AND DATA COM 
JSR PC, ENBSCH sEXECUTE DATA COMMAND TO POINT WHERE 
;SEARCH IS ENABLED USING SUBROUTINE. 
z. 10$ ;BRANCH TO 10$ IF NO ERROR 
JMP 160$ 
10$: 


JSR PC,SCTCMP 


sFORCE SECTOR COMPARE USING SUBROUTINE 


SEQ 0072 


T20 
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mais ere 
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000040 
177776 


001140 
001136 
000040 


000016 


000040 
000001 


001136 
000040 


000001 


055401 
051401 
000024 


055401 
051401 
000024 


MACRO VO3.01 11-APR=-80 14:12:35 PAGE I hes 


ont 20$ :BRANCH TO 20$ IF NO ERROR 
BR 160$ 


WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED 
sFIRST, VERIFY i WRITE GATE IS ON, INDICATING THAT 


— COMPARE 
MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT SBDDAT 
BIC #*CBB00, $8DD DDAT ;BUS BIT O IS WRITE GATE 
BNE 30$ 3 
CLR SGDDAT 
MOV RO, SBDADR 
ADD #RMMR2 , SBDADR 
EMT 4 
BR 160$ sFORMAT-CS FAILURE 


STEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE 
gate STAYS ON 


ae MOV #14. ,R2 :MAXMUM NUMBER OF CLOCK 
“MOV RMMR2 (RO), $BDDAT :STORE RMMR2 AT $BDDAT 
BIT #8800, $BDDAT : 
BNE 50$ ‘BRANCH IF WRITE GATE ON 
BNE 40$ 
MOV RO, S$BDADR 
ADD ARMMR2 , SBDADR 
MOV #8800, $GDDAT 
EMT 42 
BR 160$ :FORMAT - CS FAILURE 
50$: 
60$: 
MOV WMRIAAA!MCLK,RMMR1(RO) ;LOAD RMMRI 
MOV AMR 1AAA_RMMRI (RO) LOAD RMMR1 
MOV RMMR 1 ( ROO RS R3 STORE Rin AT R3 
BIT HC ,R3 
BEQ 60$ 
PROM STROBE CAME _ON-DECREMENT PROM STROBE COUNT 
BEQ 80S 


;WAIT FOR PROM STROBE TO GO OFF, THEN REPEAT LOOP 


70$ 
MOV #MRIAAA!MCLK,RMMR1(RO) :LOAD RMMR1 
MOV WMR1AAA_RMMRI (RO) [LOAD RMMR1 
MOV RMMR1(RO),.R3 STORE RMMR1 AT R3 
BIT MIC R3 
40$ 
70$ 


VERIFY HEADER SYNC GENERATION 
WRITE DATA BIT IS INVERTED AT MAINTENANCE REGISTER 
“FIRST, COUNT NUMBER OF ZERO BITS UNTIL FIRST ONE BIT 


ay 


aiwtiebatah aababas 
lelelelelelelelelelelelele) 

ed ce ee cd ed a ced ee eed ed ad a ed ed ee 
a ah eh at a gah gal ae go ae php pt ye 


ee ed ed eed od —_ 2 
8 
Ww 
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ronrronor 
Ww 
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000024 
000024 


000024 
000024 


001140 
001142 


80$: 


90$: 


100$: 


isOae SURE THERE WERE AT LEAST 8 ZERO BITS IN HEADER SYNC 


>; SAMPLE 
120$: 


130$: 


140$: 


; VERIFY 
150$: 


160$: 


SERRE AREER EERE 


S*TEST 21 


TST21: 


#16. ,R2 
R3 


RMMR1 (RO) RS 
AMWD .R4 


110$ 
R3 
R2 
100$ 
43 
160$ 


AMR1AAA!MCLK,RMMR1 (RO) 
AMR IAAA, RAP | 


#8. .R2 
R3 


RMMR1 (RO) ,R4 


150$ 


#AR1AAA!MCLK,RMMR1 (RO) 
WME AAA, RHR (RO) 


aS 


(RO) 


sMAX TIMES THRU LOOP 


:STORE RMMR1 AT R4 

: JUMP OUT OF LOOP WI 
: INCREMENT ZERO COUN 
:DECREMENT MAX LOOP COUNT 
HEADER SYNC ,CANT GET FIRST 1 


LOAD RMMR1 
LOAD RMMR1 


sHEADER SYNC 


STORE THE REST OF THE HEADER SYNC 
;NUMBER OF SAMPLES 


‘HEADER SYNC 


STORE RMMR1 AT R4 


SHIFT SAMPLE,IF SYNC 
THEN SET SAMPLE INPU 


WRITE HEADER TEST 


#STACK ,SP 


SRA AAAAEAEE AAA EEE 


SCOPE CALL 


;LOAD THE STACK POINTER 


LOAD RMMRI 
LOAD RMMR1 
:DO LOOP TIL R2=0 
SYNC BIT STREAM IS 0000000010011000 
#000230, $GDDAT 

R3,$BDDAT 

SGDDAT , SBDDAT 

160$ 


SEQ 0074 


3 


— 
— Ht 
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SRESSSSSSHSLESLSSSVRESSSASIa Yoo! 
So 
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001276 
001462 
000021 
001466 
001330 
000036 
010000 
054244 
001412 
150000 
001466 


001330 
0000 

177776 
000063 


023430 


015456 
024302 


015456 


000017 
000041 
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051401 
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001142 
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1 


MOV $BASE ,RO 
MOV TSTQUE ,R1 
MOV #21,$TESTN 


:RO = UNIBUS ADDRESS 
;R1_= POINTER TO DEVICE 
3;SET TEST NUMBER IN APT MAIL BOX 


; SETUP yd Mein = OUTPUT BUFFER FOR SUBROUTINES 
#822. ,.RMDCO 


OS: 


LSTRK.RMDAO 
#30. RMD RMDAO 
#FMT16,RMOFO 
MOV WBUFFER,R2 
MOV R2,RMBAO 


MOV #150000, (R2) 


sLAST CYLINDER 


ER_ STARTS 
STORE FIRST HEADER WORD 
[SET MF/UF BITS GOOD, 16 BIT FORMAT AND 
4 7 CYLINDER 

STORE SECOND HEADER WORD 

SSET LAST TRACK ADDRESS AND 
SECTOR ADDRESS. 
32 WORDS (2°S COMP) 
;WRITE HEADER COMMAND 


EXECUTE DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
:BRANCH TO 10$ IF NO ERROR 


FORCE SECTOR COMPARE USING SUBROUTINE 
:BRANCH TO 20$ IF NO ERROR 


pier THE DATA TIMING SEQUENCER UNTIL ‘HEADER AREA’’ COMES ON 


30$: 
jrase BIT CLOCK UNTIL PROM STROBE IS ON 


;SEE IF 


50$ 


;ERROR-HEADER AREA NEVER CAME ON 
on #PHA,$ 


BIS #822. ,(R2)+ 
MOV LSTRK, (R2) 
MOVB #30. ,(R2) 
MOV #-2 ,RMWCO 
MOV MWH!GO,RMCS10 
JSR PC,ENBSCH 
BR 10$ 

EMT 

JMP 160$ 

JSR PC,SCTCMP 
BR 20$ 

EMT 

JMP 160$ 

MOV #15. ,R2 

MOV #33. ,R4 


MOV 
MOV 

MOV paalle ROS R3 
BIT HC R3 

BNE 50$ 

DEC RS 

BNE 40$ 

JMP 160$ 

HEADER AREA CAME ON 
BIT APHA,R3 

BNE 80$ 

DEC R2 

RNE 60$ 


GDDAT 
$BDDAT 


WMRIAAA MCL RMMR1 (RO) 
AAA. RMMR1 (RO) 


zALLOW 15 MORE PROM STORBES 
sALLOW 33 BIT CLOCKS PER PROM STROBE 


LOAD RMMR1 
LOAD RMMR1 
;STORE RMMR1 AT R3 


COUNT EXHAUSTED 


SETUP ERROR MESSAGE 
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010037 001136 
062737 000024 


015456 
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051401 
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001136 


000024 
000024 


000024 
000024 


000024 
000024 








MOV RO, $BDADR 
ADD #RMMR 1 , SBDADR 
EMT 45 


JMP 160$ SKIP REST OF TEST 


inst FOR PROM STROBE TO GO OFF 


MOV AMRIAAA!MCLK,RMMRI(RO) ;LOAD RMMR1 


MOV AMRIAAA R : RMMR 1 
MOV RMMR1(RO),.R3 ; STORE RMMR1 AT R3 
BIT HC RE 
BEQ 70$ 
DEC RG 
BNE 60$ 
JMP 160$ :COUNT EXHAUSTED 
VERIFY THE TAG BUS ONCE EVERY PROM STROBE 
MOV RMMR2 (RO) , SBDDAT zSTORE RMMR2 AT $BDDAT 
BIC #°C1777, $BDDAT 
CMP 00,$BDDAT  ;WRITE GATE SHOULD BE ON 
BEQ 30$ TALL ELSE OFF 
MOV RO, SBDADR : 
ADD ARMMR2 , SBDADR 
MOV #8800, $GDDAT 
EMT 42 
BR 160$ 


HEADER AREA IS NOW ON CAN START SAMPLE 


DATA AFTER 5 MORE BIT CLOCKS 
a MOV #5,R2 
MOV WMRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
MOV #MR1AAA.RMMRI (RO) [LOAD RMMR1 
DEC R2 
BNE 81$ 
;SAMPLE AND STORE THE TWO HEADER WORDS 
CLR $TMPO 
CLR STMP1 
MOV #STMPO,R2 zR2 NUMBER OF WORDS/ADDRESS 
90$: MOV #16.,R3 [NUMBER OF BITS 
ead CLR R4 SWORD STORAGE 
MOV RMMR1(RO).RS STORE RMMR1 AT RS 
ASL R4 SSHIFT WORD SAMPLE 
BIT #MWD RS [SET BIT O IF WRITE BIT ON 
BNE 110$ 
ca BIS #BITO,R4 
MOV #MRIAAA!MCLK,RMMR1(RO) :LOAD RMMR1 
MOV #MR1AAA,RMMRI (RO) [LOAD RMMR1 
DEC R3 
BNE 100$ 
MOV R4, (R2)+ ySTORE WORD SAMPLE 
CMP #STMPO+4 ,R2 [DONE ? 
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BLOS 120$ YES 
;HEADER AREA SHOULD STILL BE ON FOR SECOND HEADER WORD 
BIC #*C<PHA>,RS 
BNE $ :BRANCH IF ON 
MOV RO, $BDADR 
ADD ARMMR1 , SBDADR 
MOV #PHA, SGDDAT 
EMT 5 
BR 160$ 
WALT UNTIL ECRC SETS 
CLR R3 ;CHECK NUMBER BITS DIFFER BET PHA AND ECRC 
125$: 
MOV RMMR1(RO).RS § : STORE RMMR1 AT RS 
BIC A*C<ECRC>.RS = = CHECK OUT THe REST BITS 
BNE 127$ “BRANCH IF ECRC ON 
MOV AMRIAAA!MCLK,RMMR1(RO) ;:LOAD RMMR1 
MOV #MRTAAA.RMMRI (RO) [LOAD RMMR1 
INC R3 :TOTAL NUMBER OF BIT DIFF 
CMP #16. ,R3 ZOVER ONE WORD ? 
BHI 125$ [BRANCH IF NOT 
MOV RO, $BDADR 
ADD #RMMR1 , SBDADR 
MOV #ECRC, $GDDAT 
CLR T ;CLEAR 1HE EXP 
EMT 46 
BR 160$ ZEXIT 
:SAMPLE AND STORE CRC WORD 
127$: 
MOV #16. ,R3 
CLR R4 
130$: 
MOV RMMR1(RO).RS STORE RR AT RS 
ASL R4 SSHIFT WORD SAMPLE 
BIT #MWD RS :SET BIT 5 IF WRITE BIT ON 
BNE 140$ 
‘a BIS #BITO.R4 
MOV #MRIAAA'MCLK,RMMR1(RO) :LOAD RMMR1 
Mov #4R1AAA.RMMRI (RO) [LOAD RMMR1 
BNE 130$ 
MOV R4, (R2)+ 


VERIFY 3 HEADER WORDS 
sNOTE THAT DATA WAS STORED IN THE REVERSE 
ORDER FROM WHICH IT_WAS WR 

MP #0663 


C 
BNE 


N 
13,$TMPO ;CORRECT FIRST HDR WRD ? 
150$ zNO !! 


: VERIFY ge AND 3RD HEADER WORDS FOR AN 


BEO 


RMO5S 
#TA16,LSTRK iIS DEVICE AN RMO5 ? 
145$ ZNO ! 





SEQ 0077 




















0 
4 015442 
01 


WW 
MN 


REO 

oO 
pe ee 
PLPSey 
ee 


015456 


SS 


So SS SS Ss SS SS PF SS SB SY SS 
WWWW 
NM 
oo 
So 
— 
vw 
S 
wi 
& 


WwW 
Ww 
pat 


015456 
015456 


BEES 
So 


Se eee 
Ww 


022737 
001004 
022737 
001401 


104047 


012737 


012737 


CZRMQAO RMOS/3/2 DSKLS TST 2 
ra WRITE HEADER TEST 


074110 
167073 


074040 
067510 


016724 
024302 


016724 


001136 
000040 


000004 
000021 


N 
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001176 coe #074110, $TMP1 : CORRECT SECOND HDR WRD ? 
001200 CMP #167073,$TMP2 CORRECT HEADER CRC ? 
BNE 150$ :NO !! 
160$ 
iVERIFY 2ND AND 3RD HEADER WORDS FOR AN RMO3 
001176 ; CMP #074040, $TMPI :CORRECT SECOND HDR WRD ? 
001200 CMP #067510,$TMP2  :CORRECT HEADER CRC ? 
BEQ 160$ TYES !! 
150$: 
EMT 47 
160$: ZEND OF SUB TEST 
SAAR EREREEKEREEEEEREEKEEEKREREEEREREEEEEREEREKREKEEKEEE 
TRTEST 22 HEADER COMPARE TEST 
FF AAR AEE EREEEEEKEEKEEREEEEEKEKREKEREREEEKREEEREKKEKEKH 
TST22: 


SCOPE sSCOPE CALL 
NOP 


MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 ;R1_= POINTER TO DEVICE 


001226 MOV #22, STESIN 7;SET TEST NUMBER IN APT MAIL BOX 
;LOAD REGISTER OUTPUT BUFFER FOR READ HEADER COMMAND 

001442 MOV #822. ,RMOCO :LAST CYLINDER 

001414 MOV LSTRK,RMDAO SET LAST TRACK AND 

001414 MOVB #30. ,RMDAO sLAST SECTOR 

001412 MOV WBUFFER,RMBAO DATA ADDRESS 

001410 MOV 72 WORDS RSs S COMP) 


#-2 ,RMWCO 
#FMT16,RMOFO 716 BIT 
MOV #RH'GO.RMCS1O READ HEADER ‘AND DATA FUN 


JSR PC,ENBSCH 4 yt My DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 


BR 10$ ‘RE ANCH TO 10$ IF NO ERROR 
am JMP 2308 ;SKIP REST OF TEST IF ERROR 
aS PC, SCTCMP :FORCE SECTOR COMPARE USING SUBROUTINE 
BR 20$ [BRANCH TO 20$ IF NO ERROR 
JMP 230$ 
5READ GATE SHOULD BE OFF FOR 3 PROM STROBES 
"MOV RO, SBDADR ;SETUP ERROR MESSAGE 
001136 ADD ARIMR2, $B 
MOV #4,R2 ;R2=NUMBER OF PROM STROBES 
30$: MOV #17. ,R4 [MAX BIT CLOCKS 


iGLOck BIT CLOCK UNTIL PROM STROBE COMES ON 


SEQ 0078 


—_ 


CZRMQAO RMO5/3/2 DSKLS 
T22 HEADER COMPARE 


and ad 
INAS 
wv 
Ooo 
oO 
ad 
vi 


SESSSESES 


ISS 
[elelelelelel|ole) 
ee ee ed eed ed od 2d 


WANA NAIA Ow 
— 


BES 

a & BSIISAR 
velot=t-l=t-t=tot=) 

ee ee a ed et ed wd 
SSSSNNNSNN 
EES SANSS 


g 


SSSSESESE 
sss 
see 


a kk kg hk tk a st st th a ss 
VIS SSLKARASS 
Soooo0oo ped 
Ww 
z 


1403 0 
14 


1413 016036 





005302 
001322 


TST 2 
TEST 


055401 
051 


016724 


000040 
176000 


001142 
001140 


016724 


055401 
051401 
000024 


016724 


000006 
000021 


055401 
051401 
000024 
000040 


016724 


000040 
176000 
000002 
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MACRO V03.01 11-APR=80 14:12:35 PAGE 12-28 


SEQ 0079 
000024 MOV WMRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
000024 MOV #MR1AAA_RMMRI (RO) “LOAD RMMR1 
MOV RMMR1(RO),R3 STORE RMMR1 AT R3 
BIT MWC R3 
BNE 50$ ;BRANCH WHEN PROM STROBE ON 
DEC RG 
BNE 40$ 
JMP 230$ 
VERIFY READ GATE IS OFF AND TAG BUS IS ZERO 
"MOV RMMR2(RO),.R3  ; STORE RMMR2 AT R3 
BIC #°C1777,R3 
BEQ 60$ ;BRANCH IF TAG BUS ZERO 
MOV R3,$BDDAT 
CLR $GDDAT 
EMT 50 
JMP 230$ ;READ HEADER FUNCTION 
iSLOCK BIT CLOCK TIL PROM STROBE GOES OFF 
000024 "Mov #MRIAAA!MCLK,RMMR1(RO) =LOAD RMMR1 
000024 MOV #MR1AAA_RMMRI (RO) ‘LOAD RMMR1 
MOV - RMMR1(RO).R3 ;: STORE RMMR1 AT R3 
BIT MWC ,R3 
BEQ 70$ ;BRANCH IF PROM STROBE OFF 
DEC R4 
BNE 60$ 
JMP 230$ 
5, CONTINUE FOR 3 BIT CYCLE TOTAL (LOC 0 NOT SAMPLED) 
- >, one R2 
BNE 30$ 
yREAD GATE SHOULD COME ON WITH NEXT PROM STROBE AND STAY 
TON FOR 7 CYCLES (AND MORE) 
MOV #6,R2 
80$: MOV #17.,R3 
gCLOCK BIT CLOCK TIL PROM STROBE SETS 
000024 "MOV #MRTAAA'MCLK,RMMR1(RO) =: LOAD RMMR1 
000024 MOV #MR1AAA_RMMRI (RO) ‘LOAD RMMR1 
MOV RMMR1(RO).R4 STORE RMR AT RG 
BIT MWC RS 
BNE 100$ :BRANCH WHEN PROM STROBE ON 
BNE 90$ 
JMP 230$ 
VERIFY READ GATE ON AND REST OF TAG BUS OFF 
“MOV RMMR2(RO).R4 § ; STORE RMMR2 AT R4 
BIC #°C1777,RG 
CMP #8B01,R4 





2 
1414 

415 4 

6 0 

7 6 

8 

9 


604 
605 
605 


Grimbutctototoiototeieie > eos 
RRANLS 
lelelelelelelelelo) 
ed ed 2d 2 od 
Reet e 
ed ed ed eed 
AOkNO —~ 


PRPREPREPRPREARLPRLRRARAEE 
NASVOVE 


SSSSSERERE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


TST 2 


E TEST 


001142 
000002 
016724 


055401 
051401 
000024 


016724 


000021 


055401 
051401 
000024 


016724 


175777 
001142 
002000 
001136 
000024 
016724 


000005 


055401 
051401 
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SEQ 0080 
BEQ 110$ ;BRANCH IF READ GATE ON 
MOV R4, $BDDAT 
001140 mov #2801 ,SGDDAT 
JMP 2308 ;READ HEADER FUNCTION 
i CLOCK BIT CLOCK TIL PROM STROBE GOES OFF 
000024 “MOV WMRIAAA'MCLK,RMMR1(RO) =LOAD RMMR1 
000024 MOV WAR AAA RMMR) (RO) ‘LOAD RMMR1 
MOV RMMR1(RO),R4  ;STORE RMMRT AT RG 
BIT MWC RG 
BEG 1208 :BRANCH WHEN PROM STROBE OFF 
BNE 110$ 
JMP 2308 
:CONTINUE FOR TOTAL OF 7 CYCLES 
120$: 
DEC R2 
BNE 80$ 
;LOOKING FOR SYNC SHOULD SET WITH NEXT PROM STORBE 
MOV #17.,R2 :MAX BIT CLOCKS 
i CLOCK BIT CLOCK TIL PROM STROBE SETS 
000024 "MOV WARTAAA'MCLK,RMMR1(RO) =: LOAD RMMR1 
000024 MOV ART AAA _RMMRI (RO) ‘LOAD RMMR1 
MOV RMMR1(RO),R3 STORE RMMR1 AT R3 
BIT MWC ,R3 
BNE 140$ ;BRANCH WHEN PROM STROBE ON 
DEC R2 
BNE 130$ 
JMP 2308 
:VERIFY "PLFS'' IS NOW ON 
140$: 
BIC #*CPLFS,R3 
BNE 150$ 
MOV R3, $BDDAT 
001140 MOV #PLFS,$GDDAT 
MOV RO, SBDADR 
001136 ADD #RMMR 1, SBDADR 
EMT 35 
JMP 2308 
150$: 
MOV #5,R3 
WITH PLFS ON, WORD COUNT INHIBIT WILL SET IN 5 BIT CLOCKS 
000024 "MOV AMRIAAA'MCLK,RMMR1(RO) =LOAD RMMR1 
000024 mov AMR IANA, RMP (RO) [LOAD RMMR1 
BNE 155$ 


; SIMULATE THE SYNC PATTERN BEING READ 


mao 
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1471 016254 AE TaN 000031 
1472 016260 012703 000010 
1473 016264 

1474 016264 012737 055401 
1475 016272 000241 

1476 016274 006002 

1477 016276 103003 

1478 016300 052737 002000 
1479 016306 

1480 016306 013760 001432 
1481 016314 042737 004009 
1482 016322 013760 001432 
1483 016330 005303 

1484 016332 001354 

1485 

1486 

1487 016334 012702 001174 
1488 016340 012737 15 
1489 052737 14 
1490 016354 013737 001350 


91 016362 000036 
1492 016370 012737 011366 
010000 
64 001403 
1495 Biecte 012737 156167 
1497 016414 012703 000020 
6420 012204 


1 
1 
1500 016422 012737 055401 
1501 016430 000241 
1502 016432 006004 
1503 016434 103003 
1504 016436 052737 002000 
1505 016444 

016444 013760 001432 
1506 016452 042737 004000 
1507 016460 013760 001432 
1508 016466 5303 
1509 016470 001354 
1510 016472 020227 001200 
1511 016476 101746 
1512 
1513 
1514 016500 012702 000006 
1515 016504 012703 000021 
1516 
1517 
1518 016510 
1519 016510 012760 055401 
1520 016516 012760 051401 
1521 dy es 016004 000024 
1522 0165 032704 000040 
1523 016534 001003 
1524 016536 005303 
1525 016540 001363 
1526 016542 70 
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MOV #31,R2 :SYNC_PATTERN=00011001 


name MOV #8. .R3 [8 BITS IN PATTERN 
; MOY WMR1AAA'MCLK,RMMR10 
ROR R2 
BCC 165$ 
Te BIS #MRD ,RMMR10 
"MOV RMMR10, RMMR1 (RO) ZLOAD RMMR1 
BIC #MCLK ,RMMR10 
MOV RMR 10, RMMR1 (RO) :LOAD RMMR1 
DEC R3 :CONTINUE TIL SHIFT COUNT 
BNE 160$ 1S ZERO 


:SIMULATE THE HEADER BEING READ 
MOV TMPO, R2 
#150000,$TMPO  ;SET MF/UF BITS GOOD, 16 BIT FORMAT AND 
$TMPO [LAST CYLINDER 
[SET LAST TRACK AND 
MP [LAST SECTOR 
#011366,$TMP2 :GET CRC PATTERN 
iIs DEVICE AN RMOS ? 
MOV #156167,$TMP2 sYES, ADJUST CRC PATTERN 


170$: 
MOV #16.,R3 ;NUMBER OF BITS EACH WORD 
eee MOV (R2)+,R6 [HEADER WORD 1,2 OR 3 
; MOY WR1AAA'MCLK,RMMR10 
ROR RG 
BCC 180$ 
wa BIS #MRD ,RMMR10 
"MOV RMMR10,RMMR1 (RO) ;LOAD RMMR1 
BIC #MCLK,RMMR10 
MOV RMMR10, RMMR1 (RO) ZLOAD RMMR1 
DEC R3 sSHIFT OUT 16 BITS 
BNE 175$ 
CMP R2,ASTMPO+4 ZALL DONE ? 
BLOS 170$ [BRANCH IF NOT 


ZLOOKING FOR SYNC SHOULD COME ON WITHIN 6 STROBES 
185$: MOV #17. ,R3 


{CLOCK UNTIL PROM STROBE ON 
MOV WARIAAA!MCLK,RMMR1(RO) :LOAD RMMR1 
MOV WAR TAAA_RMMRI (RO) ‘LOAD RMMR1 
MOV RMMR1(RO).R4  ;STORE RMMR1 AT RG 
BIT MWC RS 
BNE 195$ 
DEC R3 
BNE 190$ 
BR 230$ 


Aan 


nope | ; 
CZRMQAO RMOS/3/2 DSKLS TST 2 MACRO VO3.01 11-APR-80 14:12:35 PAGE 12-31 
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vi 


ooo 
parr Sos 


4 
6550 


MASVON 


wi wi wi wMuviviVi wi MIVIViIv 
PAPAMIBE LLL EERE ELGG 
lelelelelelelele!) 
cD et ed eld ed eel 


lelejolelelelejlolo) 


MMII 


16642 

6642 
16650 
16656 


VMI 


Vu 
won 


sk ek el kk kk ed ad ed 
SEL ROSeS 
ODONAUSWR = 
sesssssssco 


RRR 


042704 
001034 


023737 
001004 


023737 
001401 


104052 


000004 
000240 


175777 


001140 
001136 


000024 
000024 


001174 
001176 


SEE IF ‘PLFS'’ IS ON 
195$: 


BIC #*CPLFS,R4 
BNE 2108 


CONTINUE IF LESS THAN 6 PROM STROBES 
DEC R2 


BNE 200$ 
MOV R4 ,SBDDAT 


; SETUP ERROR 
MOV #PLFS,$GDDAT 
MOV RO, $BDADR 
or #RMMR 1 , SBDADR 
BR 230$ ; HEADER 


3CLOCK UNTIL PROM STROBE OFF 
"MOV #MRIAAA'MCLK,RMMR1(RO) =LOAD RMMR1 
AMR RMMR1 (RO) : 


MOV 1AAA ‘LOAD RMMR1 
MOV RMMR1(RO),.R4 STORE RMMRI AT RG 
BIT MIC RG 

BEQ 185$ 

DEC R3 

BNE 2008 

BR 2308 


pyeniey NO HEADER ERROR IS SET 


210 
MOV RMER1 (RO) , SBDDAT 


STORE RMER1 AT SBDDAT 
BIC ch Ne ree 


MOV RO, SBDADR 
ADD R1, $BDADR 
EMT 51 
BR 230 ;HEADER ERROR SET 
sYERIFY DATA IN MEMORY OK 
5 cme BUFFER, STMPO : COMPARE 1ST HEADER WORD 
CMP BUFFER+2,$TMP1 = COMPARE 2ND HEADER WORD 
BEQ 230$ 
gREPORT ERROR IN ONE OR MORE HEADER WORDS 
"EMT 52 
2308: 


5 LARA RARER EAA REREAEREARAAERAAERREEEEREEERKEREE 


S*TEST 23 ECC GENERATION TEST 


CLARA ARERR EERE EERE ARAAEREREEREEEEREEREREREEEREREEE 
TST23: 

SCOPE :SCOPE CALL 

NOP 


SEQ 0082 


a 


mn 





CZRMQAQ RMOS/3/2 DSKLS 
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016730 piers 
016 013700 
016740 013701 
016744 012737 


016752 012737 


SEEU RENEE IS 
o 
: 
S 
3 


017030 012704 


yu 

ooo 

WN 
o 
— 
~ 
% 
=] 
oe 
N 
oO 
w 


594 5 

332 017044 001375 

597 017046 004737 
017052 000403 


=_— tt es es ss So a 2 SS a eS 


017054 104000 
1598 017056 000137 
1599 017062 
1600 017062 004737 
017066 


017070 000 
1601 017072 000137 
ie 017076 


017076 004737 
017102 000403 
017104 104000 
1604 017106 000137 
1605 017112 
1606 017112 004737 
017116 000403 
017120 104000 
1607 017122 000137 
1608 
1609 
1610 
i611 
1612 
1613 
1614 
1615 
1616 017126 012702 
| 1617 
1618 


017 
1620 017132 004737 


177777 
000400 


023430 
020112 
024302 


020112 
024410 


020112 
024572 


020112 


017660 


017700 





MACRO V03.01 11-APR-80 14:12:35 PAGE 15-32 


MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO “RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 :R1 = POINTER TO DEVICE 
001226 MOV #23, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
;SETUP REGISTER OUTPUT BUFFER FOR WRITE DATA CAMOMMAND 
001442 MOV #822. ,RMDCO :LAST CYLINDER 
001414 MOV LSTRK,RMDAO ‘SET LAST TRACK AND 
001414 MOVB  #30.,RMDAO SLAST SECTOR 
001440 MOV #FMT16!HCI,RMOFO 316 BIT FORMAT, IGNORE HEADER 
MOV WBUFFER,R 
MOV R2,RMBAO :DATA ADDRESS 
MOV #-256. .R3 7256. WORDS (2°S COMP) 
MOV R3,RMW 
001406 MOV #WD!GO,RMCS10  ;WRITE DATA COMMAND 
:FILL THE DATA BUFFER WITH ALL ONES 
MOV #177777 RG :DATA PATTERN ALL ONES 
MOV ZONE SECTOR DATA FIELD 
10$: MOV ia yy 
DEC R3 
BNE 10$ 
JSR PC, ENBSCH sEXECUTE DATA COMMAND TO POINT WHERE 
ARCH 1S ENABLED USING SUBROUTINE. 
BR 208 “BRANCH TO 20$ IF NO ERROR 
7 JMP 4008 
se PC,SCTCMP ZFORCE SECTOR COMPARE USING SUBROUTINE 
BR 30$ ‘BRANCH TO 30$ IF NO ERROR 
at JMP 400$ 
i a PC,SETLFS :SET ‘LOOKING FOR SYNC USING SUBROUTINE 
BR 40$ [BRANCH TO 40$ IF NO ERROR 
nie JMP 400$ 
38 oe PC, CLKSNC : CLOCK THE SYNC PATTERN USING SUBROUTINE 
BR 50$ BR TO 50$ IF NO ERROR 
EMT 
JMP 400$ 


sHEADER COMPARE IS INHIBITED FOR THIS T 
CLOCK THE DATA TIMING or AND VERIFY THE FOLLOWING WAVEFORMS 


FOR EACH LEADING EDGD OF PROM STROBE 

: HEADER ARES, READ GATE (DATA TIMING SEQUENCER=200 OCTAL) 
: ENABLE CRC OUT 

: WRITE GATE 

50$: MOV #230$,R2 :POINTER TO WAVE FORM TABLE 


5,CLOCK BIT CLOCK (MCLK) UNTIL PROM STROBE COMES ON 
" «JSR PC, 300 


ma 


a ee = 





TST 
ECC GENERATION TEST 


1622 

1623 017136 
1624 017136 
1625 017144 
1626 017152 
1627 017156 
1628 017164 
1629 

1630 

1631 017166 
1632 017172 
1633 017 
1634 017202 
1635 


1648 017252 
1649 
1650 
1651 017256 
1652 017256 
1653 
1654 
1655 017262 
1656 017262 
1657 017266 
1658 
1659 
1660 017270 
1661 
1662 
1663 017274 
1664 017274 
1665 


1670 017310 
1671 


1672 
1673 017312 
1674 017312 
1675 017316 
1676 017320 
1677 
1678 


004737 
020227 
103721 


012702 


004737 


001136 
000040 


020112 
020006 
017676 
000011 


017700 
000024 
177377 


020006 
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001142 
001142 


001142 


001136 


001142 
001142 


001142 


001136 


SEQ 0084 


hose STROBE IS ON = VERIFY WAVEFORM 
Vv RMMR1 (RO), SBDDA STORE RMMR1 AT SBDDAT 
BIC ACCECRC!BDA'PHA: EEC(>, sADDAT 
MOV (R2)+,$GDD 
CMP SGDDAT, SBDDAT 
BEQ 90$ BRANCH IF RMMR1 OK 
ERROR = THE DATA TIMING SEQUENCER OUTPUT IS ONCORRECT 
MOV RO, $BDADR 
ADD #RMMR1 , SBDADR 
EMT 54 
JMP 400$ 
=" THE TAB BUS 
MOV RMMR2 (RO) , SBDDAT STORE RMMR2 AT $BDDAT 
BIC #*C1777 , SBDDAT 
MOV (R2)+,$GDDAT 
CMP $GDDAT , SBDDAT 
BEQ 100$ BRANCH IF TAG BUS OK 
sERROR- TAG BUS IS WRONG 
MOV RO, $BDADR 
ADD ARMMR2 , SBDADR 
EMT 
JMP 400$ 


iobeee BIT CLOCK TIL PROM STROBE RESETS 


JSR 


PC,350$ 


+) phage CHECKING THROUGH 4 PROM CYCLES 


CMP 
BLO 


R2,4230$+16 
70$ 


; VERIFY ha DATA AREA COMES ON WITHIN 9 PROM STROBES 


#9. ,R2 :R2=9 STROBES 


;CLOCK PROM STROBE ON 
130$: 


JSR PC, 300$ 
; PROM STROBE ON CKECK IF DATA AREA ON 
"mov RMMR1(RO),R4 STORE RMMR1 AT RG 
BIC #°CPDA,R4 
BNE 160$ 
:CLOCK PROM STROBE OFF 
150$: 
JSR PC, 350$ 
DEC R2 
BNE 130$ 


;ERROR=DATA AREA DIDN'T COME ON 


CZRMQA0 gpm moss oes 13 gpm moss oes 13 TST r 


ECC GENERATION TEST 
piers pees 001140 
0050 001142 


1679 017322 
330 


1700 017420 
1702 019452 


1703 
1704 017424 
1706 017424 


YN 


1708 017430 


“N 

SELF 
oo 
aad 
aE 


— — a etd ows od od = 
WOON AUNFSWRH—OoO 


RRINTS 
SOoOooooooooooooo°oo 
a -2 
RS% 


as 


KUNZE SSL 
oo 

33% 

ee OK 


NON INNNAN ANNAN NNNNNWGNS 
— 


—— BV st ss ss Ss SS SS es os Ss SY SS — oa SH YS Ss SY SS 


012702 


001136 
000024 


000400 


000024 
177357 
000400 
001142 


0004 
001136 
000024 


020006 


017700 


000024 
177357 
000020 


055401 
051401 
000007 


001174 
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001136 


001140 
001136 


000024 
000024 


001140 
001136 





SEQ 0085 
#PDA,$GDDAT SETUP ERROR MESSAGE 
$BDDAT 
RO, $BDADR 
#RMMR1 , SBDADR 


2208 


ieee THAT DATA AREA IS ON FOR 256 CYCLES 


MOV 


#256. ,R2 


ivone THAT DATA AREA IS ON AND ECC IS OFF 


zCLOCK PROM 
180$: 
JSR 
;CLOCK PROM 
JSR 


(RO) ,R3 
PCePDA‘EECO>, 
#PD. 


STORE RMMR1 AT R35 


DATA AREA IS ON 


220$ 
STROBE OFF 
PC,350$ 


STROBE ON 
PC, 300$ 


CONTINUE TIL COUNT ZERO 
DEC R2 


sECC SHOULD 
LR 
182$: 


; SAMPLE ECC 
190$: 


1708 
BE —— WITHIN 4 CLOCK BITS 
RMMR1 (RO) ,R3 


#*C<PDA!EECC>, 
#EECC,RS 
190$ 


STORE RMMR1 AT R3 


R2 
aes aati (RO) 


LOAD RMMR1 
AMR 1AAA ,RMMR1 (RO) :LOA 


D RMMR1 


CHARACTER FOR 32 BITS 
#STMPO ,R2 


aon 


— 


CZRMQAOQ RMOS/3/2 DSKLS T 
T23 





006 
7554 Bae nos 


749 017614 101351 


| 
1763 017566 
1745 017602 
46 017604 
50 
51 
017 
017636 
017644 
759 
? 


oRER 
SERRE 
= 


RTs 
ooo 
3 


N 
=| 
o 
nv 


017616 022737 
001004 

000000 

69 017676 000000 


333 
=) 


3 
s3ge 
as 


17766 062737 


R 
E 
3 


17776 000445 


012737 


Sooooocooocecoec0o 4 


ek ek ke ek ee kk ee eke dd ke de dd od ed ed 
Py 
[=] So 
= 
“N 
g 
N Ps 


T 2 
ECC GENERATION Test 


000020 
000024 
000010 
000001 


055401 
051401 


001200 


131177 
175154 
131177 
175154 


020112 


000021 


055401 
051401 


000024 
177737 
020002 
020002 


000040 
001136 
000024 


000021 


I 
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SEQ 0086 
195$: CLR R3 
MOV #16. ,R4 
200$: 
MOV RMMR1(RO),RS §; STORE RMMR1 AT RS 
ASL R3 
BIT #MWD RS 
BNE 2 ;BRANCH IF ECC BIT OFF (MWD INVERTED) 
— BIS #B1T0,R3 
000024 MOV #MRIAAA'MCLK,RMMR1(RO) =LOAD RMMR1 
000024 MOV #MR1AAA,RMMR I (RO) :LOAD RMMR1 
DEC R4 
BNE 200$ 
MOV R3, (R2)+ 
CMP ASTMPO+4 ,R2 
BHI 195$ 
:VERIFY ECC CHARACTER GENERATED 
001174 CMP #131177,$TMPO 
BNE 210 
001176 CMP & 731 54,$TMP1 
001200 210$: MOV #131177, $TMP2 
001202 MOV #175154.$TMP3 
EMT 61 
220$:  JMP 400$ :GREAT ESCAPE 
2308: WORD 
“WORD B01 
WORD 
“WORD B01 
WORD 
WORD 
“WORD 0 
“WORD 0 
020002 3008: MOV #17.,3208 ZCLOCK PROM STROBE ON 
000024 MOV #MRIAAA!MCLK,RMMR1 (RO) : LOAD RMR 1 
000024 MOV #MR1AAA_RMMRI (RO) RMMR 1 
020004 MOV RMMR1(RO),330$ ;STORE Rin AT 330$ 
020004 BIC #*CWC, 3308 
BNE 310$ ZEXIT IF PROM STROBE ON 
DEC 320$ 
BNE 305$ 
001142 MOV 320$, SBDDAT ;SETUP ERROR MESSAGE 
001140 MOV WIC, $GDDAT 
MOV RO, $BDAD 
001136 ADD ARMMR1 , SBDADR 
EMT 30 
BR 400$ 3 
310$: RTS PC 
320$: .WORD 0 :MAX BIT COUNT 
330$: [WORD 0 [RMMR1 CONTENTS 
020106 350$: Mov #17. ,370$ 





| a Tet 





WG 
~ 


Graxcssassores 33 


oo oo OCOCoCOoOOSCoOO 


ae 


Qe eee ee ee ee ee ee 
Seti tht 
No N 

So SS 8 


eed ed ed ad ed ed ed 
WONAUSW 
88 
= 
Vw 
fo) 


8 


1824 020216 
020216 
020222 
020224 

1825 020226 

1826 


1827 020232 
OCU ee 


1828 050342 


CZRMQAO RMOS/3/2 DSKLS 
ECC GENERATION 


012737 


012737 


01 
012737 


004737 


TST 2 
TEST 


055401 
051401 


9000s 
177737 
020106 
020110 
001140 
001136 
000024 


023430 


021100 
024302 


021100 
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000024 
000024 
020110 
020110 
001142 


001136 


355$: 


360$: 


370$: 
380$: 


400$: 


AMR1IAAA!MCLK ,RMMR1 (RO) 


WW? 
WUINIOs > 
MOON 
APAARED— 

o-— 
2. A 
» 


3 

380$, $8DDAT 
SGDDAT 

RO, $BDADR 
#RMMR1 , SBDADR 


400$ 


SEQ 0087 
CLOCK PROM STROBE OFF 
;LOAD RMMR1 
;LOAD RMMR1 
STORE RMMR1 AT 380$ 


MAX BIT COUNT 
CONTENTS OF RMMR1 


SUB-TEST EXIT POINT 


ST ERAAREEEKEERREEKEEEREREEEEEEKEKREKREKEEEEREREREEERERREREERRREEREE 


S*TEST 24 


TST24: 


20$: 


30$: 


ECC DETECTION TEST 


AMSTACK,S? 
SBASE ,RO 
TSTQUE ,R1 
#24, $TESIN 


ita i cl haa is act W i itt 


:SCOPE CALL 
a THE STACK ae 
= UNIBUS ADDRESS 


RI = POINTER T TO DEVICE 
>;SET TEST NUMBER IN APT MAIL BOX 


1 gd = hh FOR READ DATA COMMAND 


R2,RMBA 
#-256. ,RMWCO 
#RD !GO.RMCS10 
PC,ENBSCH 

30$ 

190$ 


PC, SCTCMP 
40$ 


: INHIBIT HEADER COMPARE 


3256 WORDS (2°S COMP) 
[READ DATA COMMAND 


EXECUTE DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
BRANCH TO 30$ IF NO ERROR 


:FORCE SECTOR or: USING SUBROUTINE 
BRANCH TO 40$ IF NO ERROR 


CZRMQAO RMOS/3/2 DSKLS TST 2 
ECC DETECTION TEST 


T24 





1829 
1830 020246 
46 


0 
ib ts 020272 


ed ed gs etd — So ss es I 


1850 020334 
1 0 


12737 
10337 


024410 
021100 
024572 
021100 
000002 
021212 
021104 


000024 
002000 


002000 
001142 


175777 
00 
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001142 


40$: 


50$: 


ph OOK! 


001136 


001140 


001142 
001136 


85$: 


SEQ 0088 
JSR PC,SETLFS zSET "LOOKING FOR SYNC’' USING SUBROUTINE 
BR 50$ [BRANCH TO 50$ IF NO ERROR 
JMP 190$ 
JSR PC, CLKSNC :CLOCK THE SYNC PATTERN USING SUBROUTINE 
BR 55$ ‘BR TO 55$ IF NO ERROR 
JMP 190$ 
;HEADER COMPARE IS INHIBITED FOR THIS TES’ 
NG FOR SYNC’* SHOULD GO OFF WITHIN ONE CYCLE 
mov #2 -Re sALLOW 2 PASSES THRU LOOP 
JSR PC, 350$ :RESET PROM STROBE 
JSR PC. 300$ :SET PROM STROBE 
NOP 
MOV RMMR1(RO).R3  -: STORE RMMR1 AT R3 
BIT APLFS,R3 
BEQ 80$ ;BRANCH IF LOOKING FOR SYNC OFF 
DEC R2 
BNE 60$ 
yERROR-LOOKING FOR SYNC DID NOT RESET DURING HEADER 
MOV R3,$BDDAT :SETUP ERROR MESSAGE 
BIC #°CPLFS, $BDDAT 
CLR DDAT : 
MOV RO, $8DADR 
ADD 1,$8DADR 
EMT 4 
JMP 190$ 
ji QOKING FOR SYNC SHOULD COME ON FOR DATA AREA WITHIN 9 PROM CYCLES 
MOV #9. .R2 
JSR PC, 350$ ZSET STROBE OFF 
JSR PC. 300$ [SET PROM STROBE 
MOV RMMR1(RO).R3 STORE RMMR1 AT R3 
BIT APLFS,R3 : 
BNE 90$ [BRANCH IF SYNC ENABLED 
DEC R2 
BNE 85$ 
jERROR-CAN'T LOOKING FOR SYNC DURING DATA AREA 
MOV #PLFS,$GDDAT 
MOV R3, $BDDAT 
BIC #*CPLFS, $BDDAT 
MOV RO, SBDADR 
ADD #RMMR1 , SBDADR 
EMT 
JMP 190$ 





CZRMQAO RMOS/3/2 DSKLS TST 2 
T24 ECC DETECTION TEST 


004737 
ot LA 


021212 
024572 


8% 
3 
3 


000400 
000020 


057401 
012760 053401 
5303 


177446 
020544 012737 015457 
552 012702 001174 


000020 
051401 


eed nt ed od od 2 — 4 — od I 


RONSSSSSRGR ON SSS BRO RE SS 


001365 
020674 042703 177377 
700 1142 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1931 020724 000465 


MON dd ed od od od ed 
ORS R RN oS oo 328522838 
So 


BVSVLSRVVLLLLS 








L 7 
MACRO VO3.01 11-APR~80 14:12:35 PAGE 12-38 


JSR PC,350$ 
JSR PC, CLKSNC 


RESET PROM STROBE 
sCLOCK THE SYNC PATTERN USING SUBROUTINE 


BR 106$ :BR TO 100$ IF NO ERROR 
BR 190$ 
: SIMULATE READ DATA 
100$: 
MOV #256. ,R2 zWORD COUNT 
1108: MOV #16. .R3 [BIT COUNT 
000024 MOV #MR1AAA! MRD !MCLK,RMMR1 (RO) :LOAD RMMR1 
000024 Mov #MRTAAA MRD RMA (RO) ZLOAD RMMR1 
BNE 115$ 
DEC K2 
BNE 110$ 
;SIMULATE ECC PATTERN 
001174 MOV #177446, $TMPO ZFIRST ECC WORD 
001176 MOV #015457.$TMP1 :SECOND ECC WORD 
MOV #STMPO,R2 
120$: MOV #16. .R3 
125$: mov AMRIAAA RG 
ROR (R2) 
BCC 130$ 
BIS AMRD RG 
130$: 
MOV R4,RMMR1(RO)  ;=LOAD RMMRI 
BIS AMCLK RG 
MOV R4,RMMR1(RO) LOAD RMMRI 
BIC LKR 
MOV R4,RMMR1(RO) LOAD RMMR1 
DEC R3 
BNE 125$ :CLOCK A WORD 
ADD #2,R2 
CMP ASTMP1R2 
BEQ 120$ ZCLOCK THE NEXT WORD 
;VERIFY DATA AREA AND READ GATE RESET 
MOV #5,R2 
140$: JSR PC, 300$ :SET PROM STROBE 
JSR PC. 350$ [CLEAR PROM STROBE 
MOV RMMR1(RO).R3 STORE RMMR1 AT R3 
BIT AR3 
BEQ 150$ 
DEC R2 
BNE 140$ 
BIC #*CPDA,R3 ;SETUP ERROR MESSAGE 
MOV R3, SBDDAT 
CLR SGDDAT 
MOV RO, $BDADR 
001136 ADD sRvR 1, $BDADR 


SEQ 0089 


1932 020726 
ee 020726 


1 020764 


gz 


ESSE 


RIAR 
moo 
RURw 
= 
°o 
= 
oO 


N 
S 
# 


os 


een ce ee ee eh ee ee ee ee ee ee ed ed eed ed ed ed od ed 
ooo°o 
S888 
—_ so 
RE 


ss 
™m 


SIS TIISSESTETER EES BIRR 
o 


aN 
RLSVSS eeeeesese 


oo 
Nm 
SERSNSANERARRBAN RS 


Seeeess 
Ww =~ 3 
ee ee ed ed ed nd od od od od =) oh hs SS I 2 SS 


1 
1 
1 
1 
1 
1 
1 
1 
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1 
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001136 


001140 


001136 


021206 


000024 
000024 
021210 
021210 


001142 
001140 


001136 
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SEQ 0090 
150$: 


MOV RMMR2(RO),R3  : STORE RMMR2 AT R3 
BIC #°C1777,R3 

BEQ 160$ 

MOV R3,$BDDAT 

CLR SGDDAT 

MOV RO, S$BDADR 

ADD ARMMR2 , SBDADR 

EMT 53 

BR 190$ 


; VERIFY THERE ARE NO ECC ERRORS 
160$: 


MOV RMER1 (RO) ,R3 STORE RMER1 AT R3 
BIC #*C<DCK!ECH>,R3 
S$GDDAT 


CMP SGDDAT,R3 


EMT 
BR 190$ 
iVERIFY DATA BUFFER 
"MOV BUF ONE ,R2 ZDATA WAS STORED HERE 
mov #177777 RS SEACH WORD ALL ONES 


MO «oR 
180$: CMP (R2)+,R3 
BNE 185$ 


R4 
180$ 

BR 190$ sEXIT IF ALL THE LOCATIONS CHECKED 
185$: MOV ~(R2) , SBDDAT SETUP ERROR MESSAGE 

MOV R3,$GDDAT 

MOV G5 -SaDMR 


190$: JMP 400$ 

300$: MOV #17. ,320$ 

gcLOck PROM STROBE ON 
"mov WMRIAAA'MCLK,RMMR1(RO) :LOAD RMMR1 


MOV 4MR1AAA,RMAR1 (RO) sl RMMR 1 
6),330$ ;STORE RMMR1 AT 330$ 


:GREAT ESCAPE 


MOV RMMR1(R 

BIC #*CWC, 3308 

BNE 310$ :EXIT IF PROM STROBE ON 
DEC 320$ 

BNE 305$ 

MOV 320$, SBDDAT :SETUP ERROR MESSAGE 
MOV WC, $GDDAT 

MOV RO, $8DADR 

ADD ARMMR1 , SBDADR 

EMT 30 

BR 400$ 


310$: RTS PC 
320$: .WORD 0 . 











CZRMQAO RMOS/3/2 DSKLS TST 2 
ECC DETECTION TEST 


T24 


Mrr 
aad ad and ood 
eOow 


SSBS323 8833 
PUES 


a aa a Ls 
MMT 


OOooooooooo oO 


RVNNNNNVNNN 


: 
z 


aS 
an 


as 


Nm 

= 
WWW 
=o 
ALNO 


000000 
012737 


000021 


055401 
051401 


9000s 
177737 
021312 
021314 
001140 
001136 
000024 


021312 
000024 


021314 


021314 


001142 


001136 


330$: - WORD 
350$: MOV 
355$: 
MOV 
MOV 
MOV 
BIC 
BEQ 
DEC 
BNE 
MOV 
CLR 
MOV 
ADD 
EMT 
BR 
360$: RTS 
370$: WORD 
380$: 
400$: 
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0 

#17. ,370$ CLOCK 
#MR1AAA!MCLK,.RMMR1 (RO) 
AMRIAAA 
RMMR1(RO),380$ ;STORE 
we Cut. 5808 

370$ 
355$ 
380$ , $BDDAT 
SGDDAT 


;SUB-TEST EXIT 


THE STROBE OFF 
;LOAD RMMR1 
;LOAD RMMR1 

RMMR1 AT 380$ 


POINT 


SEQ 0091 


—t 
vs 


lojlololelelejelolo) 
ooo 
= = 
Ww 


— 


Ban ~dvendvasheoses 
WO NAUSWN $0 OONAUSWIH 


021356 
021356 


021422 
021442 
021442 
021446 
021450 
021454 


021520 
021520 


021524 


000137 
012737 


013746 
104405 


104401 
000421 


013746 


CZRMQAO RMOS/3/2 DSKLS TST 2 
END OF SUB=PASS ROUTINE 


001462 
000002 
001462 


005242 
001464 


001116 
001206 
001230 
100000 


021424 


001230 


021456 
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001462 


001230 


SEQ 0092 
-SBTTL END OF SUB=PASS ROUTINE 


:THIS IS_THE END OF SUB=PASS ROUTINE. THIS ROUTINE IS USED TO 

;TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 

SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
O TEST, EXIT IS MADE TO *SEOP* ROUTINE. OTHERWISE, RETURN 

18 MADE TO "READY ROUTINE. 


SEOSP: SCOPE 
MOV TSTQUE,RO :GET POINTER TO TSTQUE 
ADD #2,R0 SADJUST POINTER TO NEXT DEVICE 
MOV RO, TSTQUE sSAVE POINTER TO TSTQUE 
TST (RO) TANY MORE DEVICES FOR TEST ? 
BEQ is :BR_IF NO 
JMP READY YES, JUMP TO READY 
1$: MOV ATSTQUE+2, TSTQUE” aye INITIALIZE POINTER TO FIRST DEVICE IN 
.S8TTL END OF PASS ROUTINE 
FERRARA REREKEREEERERERREEERREEEREREREREEAEEEREREEREREREEE 
: INCREMENT THE PASS NUMBER (SPASS) 
:*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY'' 
S*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO READY 
SEOP: 
NOP 
CLR $TSTNM 3: ZERO THE TEST NUMBER 
CLR STIMES £2 ZERO THE NUMBER OF ITERATIONS 
INC $PASS : INCREMENT THE PASS NUMBER 
BIC #100000, $PASS T ALLOW A NEG. NUMBE 
DEC (PC) + +: 
SEOPCT: .WORD 
BGT SDOAGN riYES 
MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
SENDCT: .WORD 1 
EOPCT 
TYPE ,65$ i: TYPE ASCIZ STRING 
BR 64$ T OVER THE ASCIZ 
i ieee .ASCIZ <12><15>/END PASS #/ 
MOV SPASS ,-(SP) 2: SAVE SPASS FOR TYPEOUT 
TYPDS £260 TYPE==DECIMAL ASCII WITH SIGN 
TYPE ,67$ [TYPE ASCIZ STRING 
BR 66$ *:GET OVER THE ASCIZ 
i678: "ASCIZ 7. TOTAL ERRORS SINCE LAST REPORT / 
MOV SERTTL.-(SP) ;;SAVE SERTTL FOR TYPEOUT 
:: TOTAL NUMBER OF ERRORS 
TYPDS £260 TYPE=-DECIMAL ASCII WITH SIGN 
TYPE SCRLF YPE CARRI AGE RETURN, LINE FEED 
CL ERTTL 7:CLEAR ERROR TOTAL 
$GET42: MOV a#42,R ::GET MONITOR ADDRESS 





a 
— ences go ‘oo, 
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END OF PASS ROU SEQ 0093 





021542 001405 BEQ SDOAGN 3 BRANCH _IF NO MONITOR 
021544 5 RESET ;-CLEAR THE WORLD 
021546 004710 SENDAD: JoR PC, (RO) 3-GO TO MONITOR 
021550 000240 NOP 32 SAVE 
021552 000240 NOP : 
54 000240 NOP 3eACT11 
021556 S$DOAGN: 
021556 000137 JMP a(PC)+ ; ;RETURN 
021560 005242 SRTNAD: .WORD READY 
021562 377 377 000 SENULL: g LS -1,°1,0 i¢NULL CHARACTER STRING 


21 


a 


SUNN Sawewruvce 
FW OC COONOUEWN OC OODNAUS Who 
Oo 


021604 
021610 


25 


26 
27 021624 
4 021630 


45 021710 
46 021714 
47 021722 
48 021726 


021735 
49 021736 





013746 
104403 
003 


016000 
042700 
012737 
022700 
001414 
012737 
022700 
001406 


012737 
022700 
004 
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020000 
022402 


001217 
022416 
001234 


000026 
177740 
022465 
000024 


022460 
000025 


022472 
000027 


022454 


022406 
001226 
022424 
022406 


022410 
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157356 


021706 


021706 


021706 


022406 


SEQ 0094 
» SBTTL SUBROUTINES 


FERRARA AEAAAEAAAEAAARAAEARERERAERAAEERERERREEREAERAAREAAREERREREEE 


* SaTTL ERROR TYPEOUT ROUTINE 


:*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
: *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
{SPRINTED S THE FIRST LINE; 
RROR MESSAGE is ASSEMBLED, FORMATTED AND PRINTED ON 
! ONE OR MORE SUCCEEDING LINES; 
«PAIRED LINES OF ERROR HEADERS AND ERROR DATA 
7 ARE PRINTED AFTER THE ERROR MESSAGE. 


ERRTYP: 
SAVREG 
BIT #SW13,aSWR : INHIBIT TYPEOUTS?? 
BEQ 1$ NO! ! 
JMP 25$ YES! ! 
i 1YPE UNIT a, MBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER 
TYPE ERTYOO ZTYPE ‘UNTA'' 
MOV $UNIT,-(SP) >:SAVE SUNIT FOR TYPEOUT 
ii TYPE yt NUMBER 
TYPOS :60 T PE--OCTAL, ASCII 
.BYTE 3 + TYPE 5 DIGIT 
“BYTE 0 +: SUPPRESS CEADING ZEROS 


:TYPE "DRIVE TYPE’ RMOS, RMO3 OR RMO2 FOR UNIT UNDER TEST 
MOV RMDT (RO AT RO 


5.RO STORE RMDT 


BIC #177740,RO SSAVE DRIVE TYPE BITS AND 
MOV #SRMO3, 3$ :GET ASCII DRIVE TYPE 

CMP #24,RO [1S DEVICE AN ROS? 

BEQ 2$ TYES !! 


MOV #SRMO2 , 3$ 


. SAVE ASCII a i TYPE 
CMP «ae 


#IS eis VICE AN RMO2 ? 
sVES ! 


MOV #SRMOS , 3$ 


, sSAVE ASCII DRIVE TYPE 
CMP #27,R0 71S DEVICE AN RMOS ? 
BNE ‘- i! 
23: TYPE ~ERTYOS TYPE ** = °° 
TYPE :TYPE DRIVE T 


YPE 
3$: -WORD 0 DRIVE TYPE MESAAGE IS STORED HERE 


;TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER 
4$: CLR T ;LOAD TEST NUMBER FOR 
MOV tes 


TYPE ERTYO :TYPE ‘'TST#** 

MOV TSTNMB,-(SP) 7;SAVE TSTNMB FOR TYPEOUT 
2: TYPE TEST R 

TYPOS 3:GO0 TYPE--OCTAL ASCII 

-BYTE 3 22 TYPE 3 DIGIT(S) 

BYTE 0 ESS LEADING ZEROS 


CLR ERRNMB :LOAD ERROR NUMBE 


ss 


55 021772 
021776 
022000 
022001 


98 022166 


RMOS/3/2 DSKLS 
TYPEQUT ROUTINE 


113737 
001406 
104401 
013746 
104403 
003 
000 
104401 
013746 
104403 
006 
001 


001507 


012102 
001505 


TST 2 


001130 022410 


022434 
022410 


022443 
001132 


022410 


022410 


001526 


022220 
022412 
000015 
022415 
000012 
000011 
022415 
000007 
022415 
000040 
022412 
000100 
022412 


022415 


022415 
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SEQ 0095 
; TYPEOUT 
sSKIP IF NO ERROR CALLED 
TYPE ‘'ERRA’* 
i oave ERRN™B FOR TYPEOUT 
3 Tyre wie RROR NUMBER 
:G0 T TS orentes Dati 


i: TYPE "3 DIGI 
we ere LEADING ZEROS 


YPE ' 
: : SAVE SERRPC FOR TYPEOUT 


; T(S) 
HETYPE LEADING ZEROS 


;GENERATE POINTER TO ERROR TABLE at ie ERROR NUMBER IS 9 
6$: ERRNMB 7 WAS 


MOVB $I TEMB, ERRNMB 
BEQ 5$ 
TYPE  ,ERTYO2 
MOV ERRNMB, -(SP) 
TYPOS 
.BYTE 3 
"BYTE 0 
5$: TYPE ERTYO3 
MOV $ERRPC ,=(SP) 
TYPOS 
.BYTE 6 
“BYTE 1 
TST R 
BEQ 5$ 
TYPE  ,$CRLF 
CLRB = BOTFLG 
CLRB — CHRCNT 
MOV ERRNMB , RO 
ASL RO 
ASL RO 
ASL RO 
ADD #SERRTB-8. .RO 
MOV (RO) ,R1 
BEQ 16$ 
- TYPE THE ERROR MESSAGE 
7$: MOV (R1)+,R2 
BEQ ies 
MOV R2,15$ 
CLR BOTADR 
8$: MOVB = (R2) +, R3 
BEQ 14$ 
CMPB ss CR, R3 
BNE 
CLRB —- CHRCNT 
BR Ba 
9$: CMPB sO #LF--R3 
BEQ RE 
CMPB es #HT,R3 
BNE 11$ 
10$: | INCB — CHRCNT 
BITB #7,CHRCNT 
10$ 
12$ 
11$: INCB —« CHRCNT 
CMPB of" —CR3 
POY ORS BOTADR 
12$: CMPB #64.,CHRUNT 
BHIS 
MOV BOTADR,R4 
BNE $ 





AN ERROR CALLED? 
$VES-TVPE CRLF 


FOUR ENTRIES IN ERROR 
ABLE 


:R1 POINTS TO ERROR MESSAGE 

[BRANCH IF NO ERROR MESSAGE 

;R2=ADDRESS OF MESSAGE STRING 

BRANCH IF END OF MESSAGE 

[LOAD ADDRESS OF STRING 

[CLEAR BOT ADDRESS 

END OF STRING? 

: CARRIAGE RETURN?? 

: YES-CLEAR CHAR COUNT 

“GET NE 

:VES-GET NEXT CHARACTER 
RIZONTAL TAB?? 

ADJUST CHARACTER COUNT 


Z INCREMENT CHARACTER COUNT 
; SPACE?? 

[SAVE ADDRESS OF SPACE 
SEND OF LINE?? 

[GET ADDRESS OF LAST SPACE 
BRANCH IF SPACE DETECTED 


Oo Oo 
Reeseeeee 
™~m 


kk kk a ss a ss 
elololelelelolo) 


SSRISRRUNIEBSVRRRONVI Savane waSSeeeaRrerce 
© © MMPPoPror 
Mnrononronnnr 
yee 


oo 
Mn 
NTS 
RS 


02 
022312 


022314 
022316 
022320 


ooo 
Maroy 


oo 

RS 
Wve Ww 
See 


CZRMQAQ RMOS/3/2 DSKLS 
ERROR TYPEOUT ROUTINE 





TST 2 


177777 


022414 


000002 
001217 
000004 


000006 
022316 


001217 


022451 
001217 
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022414 


: TYPE CRLF 
[CLEAR CHARACTER COUNT 
:SET UP R2 FOR TESTING 


sREPLACE SPACE 
iSET BOT FLAG 
ERROR MESSAGE STRING 
STRING ADDRESS GOES HERE 
WAS /ST RING TRUNCATED?? 


sVeServee CRLF 


cRESTORE a 
TYPE REST OF STRING 


:R1 POINTS TO ERROR HEADER TABLE 
BRANCH IF NO HEADER 
; (ASSUME NO DATA) 
;R2 POINTS TO DATA ADDRESS TABLE 
:R3 Bye pod TO FORMAT TABLE 

T HEADER ADDRESS FOR TYPE 
‘BRANCH IF END OF HEADERS 
; (ASSUME END OF DATA) 


HEADER ADDRESS GOES HERE 

:DATA WITH HEADER?? 

:NO!! 

:R4 POINTS TO DATA ADDRESS 
ORMAT 


:RS POINTS TO F 
WHAT KIND OF DATA?? 
NARY 


MORE DATA?? 

zNO!! 

:YES-TYPE 2 SPACES 
;AND_CONT INUE 


:TYPE ONE BLANK LINE 
ZBEFORE NEXT HEADER 


TYPE »SCRLF 
CLRB CHRCNT 
MOV 15$,R2 
BR 8$ 
13$ CLRB =(R4) 
MOVB #-1 ,BOTFLG 
14$: TYPE 
15$: . WORD 
TSTB BOTFLG 
BEQ 7$ 
TYPE ,$CRLF 
CLRB BOTFLG 
CLRB CHRCNT 
MOV BOTADR,R2 
MOV R2,15$ 
MOVB #* ,=(R2) 
TSTB (R2)+ 
BR 8$ 
i TYPE ERROR HEADER AND ERROR DATA 
17$: MOV 2(RO) ,R1 
BEQ 25$ 
TYPE ,$CRLF 
MOV (RO) ,R2 
MOV 6(20) ,R3 
18$: MOV (R1)+,19$ 
BEQ 25$ 
TYPE 
19$: WORD 0 
TYPE ,$CRLF 
TST R2 
BEQ 18$ 
MOV (R2)+,R4 
MOV (R3)+,R5 
208: TSTB (R5)+ 
BMI 22$ 
BEQ 21$ 
MOV a(R4)+,-(SP) 
TYPDS 
23$ 
21$: MOV a(R4)+,-(SP) 
TYPOC 
BR 23$ 
22$ MOV a(R4)+,-(SP) 
TYPBN 
238: TST (R4) 
BEQ 24$ 
TYPE ERTY04 
AR 
248 TYPE $CRLF 
BR 18$ 
25$ RESREG 
RTS PC 
TSTNMB: .WORD 0 


TEST NUMBER 


GB 
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ERRNMB: .WORD 0 ERROR NUMBER 

BOTADR: .WORD 0 :BEGINNING OF TEXT ADDRESS 
BOTFLG: .BYTE Q LAG 

CHRCNT: .BYTE 0 ‘CHARACTER COUNT 

ERTYOO: .ASCIZ @UNIT#O 

ERTYO1 SCIZ @, TEST#a 


SEQ 0097 





et SS SS SS 


3 
oo 
SS 
RO 


52 022740 
53 022746 
54 022754 


55 
56 022756 


CZRMQA0 ies DSKLS 
CLOCK SUBROUTINE 


1 
2 
3 
4 
5 
6 
7 
8 
. 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 


012637 
012637 
000207 


012777 
012777 
000403 


012777 





TST 2 


000004 
000006 
022576 
000300 


156754 


= Beeeee 
RNNEE 
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000004 
000006 


156730 


001512 
001520 
000004 


156542 
156532 


156532 


-SBTTL CLOCK SUBROUTINES 
;ROUTINE TO SIZE FOR CLOCKS (KW11=L OR KW11-P) 


SIZCLK: NOP 
MOV ERRVEC,-(SP) 3 PUSH ERRVEC a STACK 
27 (SP) ; ;PUSH ERAVEC #2 ON STACK 
MOV #10$,ERRVEC ZLOAD 04° TRAP VECTORS 
MOV #PRS,ERRVEC+2 


:SEE IF A KW11-P CLOCK IS PRESENT - GO TO ie: IF NOT PRESENT 
TST @$LPCSR :TEST FOR P CLOCK 
MOV Psion Soe ; LOAD SUBROUTINE ADDRESS 


;LOAD STOP ADDRESS 
MOV #PCOUNT, on rt LOAD P CLOCK INTERRUPT VECTOR 
MOV #PR6, ASLPVEC+2 

MOV SLLVECe2,aBLLVEC; CLEAR L CLOCK INTERRUPT VECTOR 


CLR a$LLVEC+ 
BR 30$ 
10$: MOV #15$, (SP) ;DUMMY RTI ADDRESS 
RTI TRESTORE PRIORITY 
iNO P CLOCK-SEE IF L CLOCK IS PRESENT-GO TO 20$ IF NOT PRESET 
"MOV #20$, ERRVEC HANGE 04 TRAP VECTOR 
TST a$LLCSR Test FOR L CLOCK 
MOV MLCLOCK,CLOCK LOAD SUBROUTINE ADDRESS 
MOV #LSTOP, STOP [LOAD STOP ADDRESS 
MOV #LCOUNT ,@$LLVEC :LOAD L CLOCK INTERRUPT VECTOR 
MOV #PR6, ASLLVEC+2 
MOV SLPVEC+2,a@$LPVEC;CLEAR P CLOCK INTERRUPT VECTOR 
CLR aSLPVEC+2 
BR 30$ 
20$: MOV #25$, (SP) ;DUMMY RTI ADDRESS 
RTI TRESTORE PRIORITY 
NO CLOCK AVAILABLE - AUGMENT RETURN ADDRESS 
c 
CLR CLOCK :CLEAR SUBROUTINE ADDRESS 
mov #SLPVEC#2, »SLPVEC:CLEAR P CLOCK INTERRUPT VECTOR 
MOV #SLLVEC+2,$LLVEC;CLEAR L CLOCK INTERRUPT VECTOR 
CLR SLLVEC+2 
ADD #2,4(SP) ; CHANGE RETURN ADDRESS 
30$: 
MOV (SP) +, ERRVEC +2 sPOP STACK INTO ERRVEC+2 
MOV (SP) +. ERRVEC ::POP STACK INTO ERRVEC 


sROUTINES TO START THE CLOCK (KW11-L OR KW11-P) 

PCLOCK: MOV #~1 ,ASLPCSB ;LOAD COUNT SET BUFFER 
MOV #135, @SLPCSR [LOAD CONTROL REGISTER 
BR PLC :GO TO COMMON CODE 


LCLOCK: MOV #100, a$LLCSR ;LOAD CONTROL REGISTER 


SEQ 0098 
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001526 


010537 001524 
177437 
000300 


000240 
023024 


000021 


177777 
62737 000021 


001530 


156420 
005077 156422 


013746 
3100 012746 
000002 


001524 
023106 


000207 


001526 


001526 
001530 
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TIME 


(SP)+,R5 
R5,$PSW 
#*CPR7,R5 
APRO,RS 


40$ 
APRS ,= (SP) 
#30$,-(SP) 


PC 


CLEAR TIMER COUNT 

PUSH OLD PSW AND PC ON STACK 
ISAVE THE PSW IN R5 
sSAVE PRIORITY 


:MASK X 
i1S PRIORITY TOO HIGH?? 
*:PUT NEW PS ON STACK 


<i obp NEW PC ON STACK 
POP NEW PC AND PS 


ROUTINES TO HANDLE CLOCK INTERRUPTS (KW11-L OR KW11-P) 


ROUTINES TO STOP THE CLOCK (KW11-L OR KW11-P) 


PLCLK: CLR 
TRAP 
MOV 
MOV 
BIC 
CMP 
BHI 
MOV 
MOV 
RTI 
30$: 
40$: RTS 
PCOUNT: 
LCOUNT: 
ADD 
BCC 
MOV 
10$: SUB 
BPL 
CLR 
20S: RTI 
PSTOP: CLR 
BR 
LSTOP: CLR 
PLSTP: 
MOV 
MOV 
RTI 
10$: 
RTS 


#17., TIME 
bn 


#~-1,TIME 
#17. ,WATCH 
208 


WATCH 


@$LPCSR 
PLSTP 


@$LLCSR 


$PSw,-(SP) 
#10$,-(SP) 


PC 


sADD 17MS TO tit — 
[BRANCH IF NO OVERF 
RESTORE MAXIMUM COUNT 
:DECREMENT REMAINING TIME 
BRANCH IF POSITIVE 
:CLEAR REMAINING TIME 
;RETURN TO USER 


e 
:STOP P CLOCK 
:GO TO COMMON STOP CODE 


STOP L CLOCK 


:zPUT NEW PS ON STACK 
7zPUT NEW PC ON STACK 
::POP NEW PC AND PS 


CZRMQAO RMOS/3/2 DSKLS tine 2 
SET VOLUME VALID SUBROUTI 


023334 
000001 
012760 001001 

000000 


wo 


MONON A a tS SS Se es 
NI SOONAANRWAOUOVOURWR 
oooo°oo 
Wiss 

Es NERESNROOS 
o 
_ 
nN 
g 


Moronrononenroryd 


760 000000 
012769 000023 
6037 000012 
23160 042737 177677 


[=] 
SSss 
— 
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-SBTTL SET VOLUME VALID SUBROUTINE 
+ THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID, 


;RETURNING WITH THE DRIVE STILL_IN DIAGNOSTIC MODE. 
THE WORD F 


;RETURNS TO THE OLLOWING T IS 
IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE 


DETECTED, 


SCALL: 


SETVV: 


10$: 


PC,SETVV JUMP TO SUBROUTINE 
2? RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 

PC, CNTCLR :GO CLEAR CONTROLLER 
#DMD,RMMR1(RO) =LOAD 

'MUR, 1(R0) :LOAD RMMR1 
#0.RMER1(RO)  ;:LOAD RMER1 
#0, RMER2 ( LOAD 


RMER2 (RO) RMER2 
PDS (nO) 46 2RMCS1(RO) ;LOAD RMCS1 


RDS (R j SBDDAT ; :STORE RMDS AT SEDDAT 
10$ * ;BRANCH IF VOLUME VALID SET 


RO. SBDADR SSETUP FOR ERROR MSG 
#VV,SGDDAT 

#2, (SP) :MOVE RETURN ADDRESS TO ERROR 
#100,a(SP) ‘WRITE ERROR NUMBER 


#PACACK , STMPO 
PC sRETURN 


SEQ 0100 


ma 


K 
CZRMQAO RMO5/3/2 DSKLS TST 2 MACRO VO3.01 11-APR-80 14:12:35 PAGE 5 
SET OFFSET MODE SUBROUTINE SEQ 0101 





} .SBTTL SET OFFSET MODE SUBROUTINE 
3 ;THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET 
4 sMODE SETS. THE DRIVE SHOULD BE IN DIAGNOSTIC MODF WHEN CALLING THE 
5 ;SUBROUTINE, WHICH WILL LEAVE DMD ON. THE SUBROUTINE RETURNS TO THE 
6 ;WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT 
i ;RETURNS TO THE SECOND WORD FOLLOWING THE CALL 

9 :CALL: JSR PC, SETOM JUMP TO SUBROUTINE 

10 ; 2? RETURN HERE IF NO ERROR 

i : ERROR RETURN HERE IF ERROR 

13 023232 SETOM: 

14 023232 012760 001001 000024 MOV ADMD '!MUR,RMMR1 (RO) :LOAD RMMR1 

15 023240 012760 000000 000014 MOV #0, RMER1 (RO) ZLOAD RMER1 

16 023246 012760 000042 MOV #0, RMER2(RO) :LOAD RMER2 

17 023254 012760 000015 000000 MOV #OF F SET 'GO,RMCS1 (RO) ;LOAD RMCS1 

18 023262 016037 000012 001142 MOV RMDS(RO) ,$BDDAT ;STORE RMDS AT $BDDAT 

19 023270 042737 177776 001142 BIC #°COM, SBDDAT 
20 023276 001 BNE ZBRANCH IF OFFSET ON 

21 023300 012737 1 001140 MOV #0M, SGDDAT 
22 023306 010037 001136 MOV RO, $BDADR 
23 023312 062737 000012 001136 ADD #RMDS , SBDADR 
24 023320 062716 000002 ADD #2, (SP) zMOVE RETURN ADDRESS TO ERROR 

35 023524 112776 000111 000000 a MOVB #111,a(SP) ‘WRITE ERROR NUMBER 


$a 023332 000207 RTS PC RETURN TO USER 





CZRMQAO RMOS/3/2 DSKLS TST 2 
CLEAR CONTROLLER SUBROUTINE 


NOUEBWN=—O0O ONOULWHo 
Oo 
Nm 
Ww 
# 


— oS Ys 


001276 
000040 
156106 


023370 
000042 


021356 
002716 
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000010 
000010 


~SBTTL CLEAR CONTROLLER SUBROUTINE 
:THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 


CNTCLR: 


. SBTTL 
SHUT: 


37658: 
64$: 


10$: 


JSR 


AND DRIVES, THEN SELECTS THE DRIVE. 


PC,CNTCLR CALL TO ROUTINE 
RO,-(SP) + gPUSH RO_ON STACK 
$BA R UNIBUS BASE ADDRESS 


SE,RO 0 = 
ACLR,RMCS2(RO) CLEAR MASSBUS 
@TSTQUE ,RMCS2(RO) sSELECT DEVICE UNDER TEST 
(SP)+,RO ::;POP STACK INTO RO 
: RETURN 


SHUTDOWN SUBROUTINE 


TYPE 
BR 
-ASCIZ 
TST 
BEQ 
JMP 


JMP 


65$ ::TYPE ASCIZ STRING 

64$ :GET OVER THE ASCIZ 

<CRLF>@TEST WAS HAL TED@<CR LF> 

an42 : RUNNING CHAIN MODE OR ACT11 AUTO ACCEPT ? 
$EOP :YES = GO TO END OF PASS 


START :GO TO START 


SEQ 0102 


M 8 
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ENABLE SEARCH SUBROUTINE SEQ 0103 

} .SBTTL ENABLE SEARCH SUBROUTINE 

3 023430 ENBSCH: 

5 ; THE REGISTER OUTPUT BUFFER SHOULD CONTAIN 

6 ; RMDAO = DESIRED SECTOR AND TRACK ADDRESS 

7 ; RMDCO = Saket CYLINDER ADDRESS 

8 é RMOFO = FORMAT, ECI, HCI 

9 3 RMBAO = BUFFER ADDRESS 

10 : CO = WORD COUNT 

1 : RMCS10 = FUNCTION CODE 

7 sNOTE: OFFSET IS NOT ENABLED WHEN USING THIS SUBROUTINE 

15 ;SET VOLUME VALID 

16 sFIRST,CLEAR -SET DIAGNOSTIC MODE-SYNCHRONIZE 

iv ;PROM STROBE 

19 023430 004737 023334 JSR PC,CNTCLR 3GO CLEAR CONTROLLER 

20 023434 012760 000001 000024 MOV #DMD,RMMR1(RO) LOAD RMMRT 

21 023442 012704 000041 MOV #33. .RG TALLOW UP TO 33 BIT CLOCKS 

22 :TO SYNC PROM STROBE 

23 023446 5$: 
023446 012760 005001 000024 MOV ADMD 'MUR'MCLK,RMMR1(RO) ;LOAD RMMR1 

24 023454 012760 001001 000024 MOV #DMD | MUR | RMMR 1 (RO) [LOAD RMMR 

25 023462 016005 000024 MOV RMMRI(ROS.RS STORE RMMR1 AT RS 
23466 032705 000040 BIT AWC .RS sWAIT FOR PROM STROBE TO COME ON 

27 023472 001023 BNE 6$ 

28 023474 005304 DEC RG 

29 023476 001363 BNE 5$ 

30 023500 010037 001136 MOV RO, $BDADR ;PROM STROBE WONT SET 

1 023504 062737 000024 001136 ADD #RMMR1 , SBDADR 

32 023512 005037 001142 CLR $BDDA 

33 023516 012737 000040 001140 MOV #WC,SGDDAT 

34 023524 062716 000002 ADD #2, (SP) 

35 023530 112776 000030 000000 MOVB #30 ,(SP) 

36 023536 000137 024300 8 JMP ;REPORT ERROR 
023542 012760 005001 000024 MOV DMD I MUR !MCLK RMMR1(RO) ;LOAD RMMRI 

38 023550 012760 001001 000024 MOV RMMRi (RO) : RMR 

39 023556 016005 000024 MOV emi ROS Re RS —; STORE RMMR1 AT RS 

40 023562 032705 000040 BIT MWC RS “WAIT FOR Bon STROBE TO GO OFF 

1 023566 001423 BEQ 7$ 

42 023570 005 DEC RG 

43 023572 001363 BNE 6$ 

44 023574 010037 001136 MOV RO, SBDADR :PROM STROBE WONT RESET 

45 023600 062737 000024 001136 ADD ARIMR1,SBDADR: 

46 023606 012737 000040 001142 MOV #WC , SBDDAT 

47 023614 005037 001140 CLR S<DbAT 

48 023620 062716 000002 ADD (SP) 

49 023624 112776 000062 000000 MOVB #65, a(SP) 

30 023632 000137 024300 JMP 

52 ZSECOND, CLOCK INDEX PULSE TO 

53 : (1) CLEAR FORMAT CHANGE FLOP 


54 (2) CLEAR RTC FLOP 
55 023636 7$: 





man 
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ENABLE SEARCH SUBROUTINE SEQ 0104 
56 023636 012760 001005 000024 MOV ADMD !MUR!MI,RMMR1(RO)  ;LOAD RMMR1 
37 023644 012760 001001 000024 MOV #DMD i MUR; RMMR1 (RO) ‘LOAD RMMR1 
59 023652 012760 000000 000014 MOV #0,RMER1(RO) LOAD RMER1 
60 023660 012760 000000 000042 MOV #O.RMER2(RO) = LOAD RMER2 
61 023666 012760 000023 000000 MOV. #PACACK'GO,RMCS1(RO) — ; LOAD RMCS1 
62 023674 016037 000012 001142 MOV RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 
702 042737 177677 001142 BIC #°CVV,$BDDAT | : VOLUME VALID SHOULD BE SET 
64 023710 001021 BNE 10$ 
65 023712 010037 001136 MOV RO, SBDADR ;SETUP ERROR MSG 
66 023716 062737 000012 001136 ADD ARMDS , S$BDADR 
67 023724 012737 000100 001140 MOV #VV,SGDDAT 
68 023732 062716 000002 ADD #2, (SP) ;WRITE ERROR NUMBER 
023736 112776 000100 000000 MOVB  #100,a(SP) : 
70 023744 012737 000022 001174 MOV APACACK , $TMPO 
al 023752 000552 BR 60$ 


73 
74 023754 


75 023754 013760 001414 000006 MOV RMDAO,RMDA(RO) ;LOAD RMDA 
76 023762 013760 001442 000034 MOV RMDCO,RMDC(RO) ;LOAD RMDC 
77 023770 013760 001440 000032 MOV RMOFO,RMOF (RO) ;LOAD RMOF 
78 023776 013760 001410 000002 MOV RMWCO,RMWC(RO) ;LOAD RMWC 
79 013760 001412 MOV ° sL RMBA 


ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE 
MOV ADMD ! MUR ! DBEN! MOC ,RMMAR1 (RO) LOAD RMMR1 
MOV #0 ,RMER1 (RO) sLOAD RMER1 
MOV #0 ,RMER2 (RO) : RMER2 
MOV RMCS10,RMCS1 (RO) ;LOAD RMCS1 
:WAIT ~* RUN AND GO'' TO SET 


88 024042 012737 000310 #200. WATCH :SET WATCHDOG TIMER VALUE 
89 seit 004777 155456 20s JSR PC, accock sSTART THE CLOCK 

024054 016037 000024 001142 MOV RMMR1 (RO), SBDDAT ;STORE RMMR1 AT SBDDAT 

024 042737 137777 001142 BIC #*CRG, SBDDAT 
91 024070 001023 BNE 30$ 
92 024072 005737 001530 TST WATCH song! TIME LEFT? 
93 024076 001366 BNE 20$ “WAIT 

00 777 ~=155430 JSR PC,aSTOP ‘STOP THE CLOCK 

95 024104 012737 040000 001140 MOV #RG, SGDDAT ‘SETUP ERROR MSG 
9% 024112 010037 001136 MOV RO, $BDADR 
97 024116 062737 000024 001136 ADD #RMMR1, SBDADR 
98 024124 062716 000002 ADD #2, (SPS :WRITE ERROR NUMBER IN 
3 024130 112776 000101 000000 MOVB #101,a(SP) ZUSER'S CALL - 
101 024136 000460 BR 60$ 
102 024140 30S: 
024140 004777 155370 JSR PC,aSTOP :STOP THE CLOCK : 
104 ;STEP COMMAND SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS) 
105 024144 012706 000021 ad MOV #17. ,R4 7R4=CLOCK COUNT 

024150 012760 141401 000024 MOV 'MUR ! DBEN! MOC ! DBCK,RMMR1 (RO) :LOAD RMMR1 
107 024156 012760 041401 000024 MOV iMUR | DBEN! MOC . RMMRi1 (RO) ZLOAD RMMR1 
108 024164 005304 . DEC 





man 


BRVETRAVVSSHVRARANV=SB 
o 
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024166 001370 


TINE 


6 
112776 
000207 
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BNE 40$ 


\ 
sDROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER TO PASS 
:TEST AT LOCATION 166 
00024 MOV #DMD ! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
000024 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) LOAD RMMR1 


;STEP SEQUENCER (35 CLOCKS) AND VERIFY SEARCH IS ENABLED 
MOV #35. ,R4 3R4=CLOCK COUNT 


50$: 
50024 MOV #DMD '!MUR!DBEN'MOC!DBCK!DTO,RMMR1(RO) LOAD _RMMR1 
000024 mov #DMD ! MUR! DBEN!MOC !DTO..RMMRI (RO) ZLOAD RMMR1 
BNE 50$ 
001142 MOV RMMR1 (RO), SBDDAT :STORE RMMR1 AT $BDDAT 
001142 BIC #CESRC ,SBDDAT ;SEARCH SHOULD BE ENABLED 
MOV RO, SBDADR ;SETUP ERROR MESSAGE 
001136 ADD ARIMA 1, SBDADR 
001140 MOV #ESRC, $GDDAT 
ADD #2, (SP) :WRITE ERROR NUMBER 
000000 nt MOVB #102,a(SP) 


RTS PC 


SEQ 0105 


NMNnNnny 3a A SS Sa es es 
We SOONA SW -OVONAUSWN 


24 

25 024356 
26 024364 
27 024372 
28 024400 


29 
30 024406 
31 


012760 
012760 


012737 
004777 
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051405 
051401 


000006 
155202 
001530 
155172 


051441 
951401 


051403 


051401 


000024 
000024 


001530 
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-SBTTL SECTOR COMPARE SUBROUTINE 


THIS SUBROUTINE CONTINUES THE EXECUTION OF A DATA COMMAND 
Oss WHERE SEARCH HAS BEEN ENABLED TO WHERE SECTOR COMPARE 


SCTCMP: 


SET — Mane TO CLEAR FORMAT CHANGE FLOP 
#DMD ! MUR! DBEN! MOC !DTO!MI La oe 
mov ADMD 'MUR ' DBEN' MOC 'DTO,RMMR1 (RO) ; 
;WAIT AT — 4 MS FOR ‘RETURN TO CENTER LINE*’ ONE SHOT TO SET 
#6,WATCH ;SET WATCHDOG TIMER VALUE 
art at aclocKk : START THE CLOCK 
10$: TST WATCH 


BNE 10$ 
JSR PC,a@STOP STOP THE CLOCK 


4 el TO SEARCH ENABLE FLOP SHOULD BE ONE - CLOCK SECTOR PULSE TO 


; MOV ADMD !MUR ! DBEN!MOC !DTU!MS,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD 'MUR'DBEN'MOC!DTO,RMMR1(RO) :LOAD RMMR1 


:WITH SECTOR COMPARE HIGH, CLOCK SECTOR PULSE TO SET SECTOR COMPARE FLOP 
MOV #DMD !MUR ' DBEN'MOC'DTO!MSC ,RMMR1 (RO) LOAD RMMR1 
MOV #DMD MUR i DBENIMOC iDTOIMSC IMS. RMMR1(RO) :LOAD RMMR1 
'MUR ! DBEN! MOC !DTO!MSC ,RMMR1 eer :LOAD RMMR1 
MOV #DMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


RTS PC 


aint RMMR1 


SEQ 0106 


a  - 
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1 

2 

3 

4 

5 

S 024410 

8 

9 024410 
10 024410 012760 055401 
11 024416 012760 051401 
12 024424 016005 000024 
13 024430 032705 000040 
13 024434 001765 
16 
17 024436 012704 000260 
18 024442 


024442 012769 055401 
19 024450 012760 051401 
20 02 000024 


4 0 
21 024462 032705 002000 


4 0244 

25 024474 062716 000002 
26 024500 112776 000035 
000430 


32 510 016005 000024 

Mi 024514 032705 000040 
0245 001007 

35 024522 012760 055401 

36 024530 012760 051401 

000414 


016005 000024 
032705 000040 


41 024552 012760 055401 
$$ 024560 012760 051401 
43 02 000764 

44 024570 

rH 024570 000207 
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-SBTTL SET LOOKING FOR SYNC SUBROUTINE 


s THIS SUBROUTINE WILL SETUP THE DATA TIMING SEQUENCE 
ASSUMING SEARCH IS ENABLED,TO THE POINT WHERE PLES IS ACTIVE 


SETLFS: 
{PULSE BIT CLOCK UNTIL PROM STROBE SETS 
000024 "mov #DMD !MUR ! DBEN' MOC !DTO!MCLK ,RMMR1 (RO) ;LOAD RMMR1 
000024 MOV #DMD 'MUR ' DBEN'MOC 'DTO, ReMaRt (RO) :LOAD RMMR1 
RMMR1(RO).RS ;STORE RMMRI A — 


MOV 
BIT MWC RS 
10$ 


:SET UP DATA SEQUENCER TO LOCATION 11. WHERE PLFS WILL SET 
MOV #176. .R4 MAX NUMBER OF BIT CLOCK 


000024 MOV #DMD 'MUR ! DBEN'MOC !DTO!MCLK,RMMR1 (RO) :LOAD RMMR1 
000024 MOV #DMD 'MUR ' DBEN' MOC 'DTO.RMMRI (RO) :LOAD RMMR1 

MOV RMMR1(RO).RS ;STORE RMMRI A aed 

BIT #PLFS,R5 EXIT. IF PLFS IS SET 

BNE 30$ 

DEC R4 yERROR IF COUNT EXHAUSTED 

ADD #2, (SP) : 
000000 Move #39 .@(SP) [CANT SET PLFS 

STEP THE MAIN REG CLOCK UNTIL THE TRAILING EDGE OF PROM STORBE 
ils. DETECTED. 


MOV RMMR1 (RO) RS STORE RMMR1 AT RS 
BIT MC RS 
BNE 40$ 


000024 MOV WYRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
000024 MOV WR 1AAARMMRI (RO) [LOAD RMMR1 
ma BR 50$ 
MOV RMMR1(RO).R5 § ; STORE RMMR1 AT RS 
BIT MWC RS 
BEQ 50$ 
000024 MOV WPRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
000024 MOV HOR TAA, ROR RMMR1 (RO) [LOAD RMMR1 


50$: 
RTS PC sEXIT 


SEQ 0107 


—_ = — see | 


cmweee RMO5/3/2 DSKLS 
CLOCK SYNC SUBROUTINE 
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+ 

4 

oa 

Oo 

Ww 

~ 

3 
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mn 
RUVLS 
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29 
30 024710 010437 
31 024714 042737 


32 024722 

33 024726 010037 
34 024732 

35 024740 062716 
36 024744 
37 094953 
38 


39 
40 024754 


48 
49 025004 
025 
50 025010 
51 025014 
20 


! 
24664 
25 024700 016004 
02 


TST 2 


000021 
000040 


055401 
051401 
000024 


014400 
000020 
051401 


002000 
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025040 


~SBTTL CLOCK SYNC SUBROUTINE 
;THIS eine Renee SIMULATE THE HEADER AND DATA SYNC 


PATTERN BEING R 
CLKSNC: 


VERIFY THAT ‘PLFS’’ IS ON 
MOV 


A) (RO) ,R4 STORE RMMR1 AT RG 


BIT LFS,R4 [LOOK FOR SYN SET ? 
BNE 10$ ‘BRANCH IF SO 
MOV R4, SBDDAT : 
BIC #*CPLFS, $BDDAT 
MOV #PLFS,$GDDAT 
MOV , SBDADR 
ADD #RMMR 1, SBDADR 
ADD #2, (SP) 
MOVB 4#35,a(SP) 
BR 60$ 
10$: MOV #17. ,R5 ;MAKE SURE PROM STROBE IS OFF 
20$: BIT MWC RS 
BEQ 30$ 
MOV WYRIAAA'MCLK,RMMR1(RO) ;LOAD RMMRI 
MOV WAR TAAA .RMMRI (RO) ‘LOAD RMMR1 
mov RMR 1(RO),R4 STORE RMMR1 AT R4 
BNE 20$ 
;ERROR CAN'T RESET PROM STROBE WITH LES ACTIVE 
MOV R4, SBDDAT ;SETUP ERROR FOR USER 
BIC #*CWC, $BDD 
CLR SGDDAT 
MOV RO, $BDADR 
ADD 1, $BDADR 
ADD (SP5 
MOVB #62,a(SP) 
BR 
gCLOCK THE SYNC PATTERN (00011001) THROUGH THE SHIFT REGISTER 
MOV #014400,R4 
MOV #16.,70$ ;STROBE BIT COUNT 
40$: MOV AMRIAAA,RS [GENERATE REG VALUE 
CLC :WITH MAINTENANCE CLOCK ON 
ROR R4 
BCC 50$ 
BIS #MRD RS ;SET READ BIT PER PATTERN BIT 
50$: 
MOV RS.RMMR1(RO)  :LOAD RMMRI 
BIS CLK,.RS 
MOV R5,RMMR1(RO) LOAD RMMR1 
BIC AMCLK,RS :CLOCK ONE BIT 
MOV RS-RMMRI(RO) — : LOAD RMR 
DEC 70¢ 
BNE 40$ 


SEQ 0108 
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CLOCK SYNC SUBROUTINE 


} 
| 57 5CANST VERIFY SYNC ¢ CLock WAS DETECTED 
| 


58 USER C AN DO SO BY 

59 ;BIT CLOCK AND VERIFY PROM STROBE SETS WITHIN ONE WORD TIME 
60 025036 60S: 

61 025036 000207 RTS PC 


o7 025040 000000 708: -WORD 0 ; TEMPORARY STORAGE 


SEQ 0109 


SN a 
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SAVE AND RESTORE RO=-R5 ROUTINES SEQ 0110 


1 


-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


FERRARA ERRATA TEETER 


m 
| 
| 
:ASAVE RO-R5 
ah sig SAVREG 
é ! UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
 STOP===(+16) 
3* +2-=-(+18) 
p* +4=--R5 
2% +6=-=R4 
3* +8---R3 
3*+10---R2 
3*4+12---R1 
3*+14=--R0 
025042 SSAVREG: 
025042 1004 MOV RO,-(SP) 7zPUSH RO ON STACK 
025044 010146 MOV R1,-(SP) ge H R1 ON STACK 
5046 010246 MOV R2,-(SP) 37PUSH R2 ON STACK 
025050 10346 MOV R3,-(SP) 32zPUSH R3 ON STACK 
025052 010446 MOV R4,-(SP) 32PUSH R4 ON STACK 
025054 010546 MOV R5,-(SP) gg RS ON STACK 
025056 016646 000022 MOV 22(SP), -(SP) 73SAVE PS OF MAIN FLOW 
25062 016646 000022 MOV 22(SP) .=(SP) :3:SAVE PC OF MAIN FLOW 
i 5066 016646 000022 MOV 22(SP) ,=(SP) 73SAVE PS OF CALL 
025072 016646 000022 MOV 22(SP) ,=(SP) 7eSAVE PC OF CALL 
025076 2 RTI 
;*RESTORE RO-R5S 
:*CALL: 
te RESREG 
025100 SRESREG: 
025100 012666 000022 MOV (SP)+,22(SP) ¢ ¢RESTORE PC OF CALL 
025104 012666 000022 MOV (SP) +. 22(SP) ssRESTORE PS OF CALL 
025110 012666 000022 MOV (SP)+,22(SP) ;zRESTORE PC OF MAIN FLOW 
025114 2666 000022 MOV (SP)+, te 7 RESTORE PS OF MAIN FLOW 
025120 012605 MOV (SP) +.R5 73POP STACK INTO RS 
025122 12604 MOV (SP) +,R4 72POP STACK INTO R4 
025124 012603 MOV (SP) +_R3 72POP STACK INTO R3 
025126 012602 MOV (SP)+,R2 7zPOP STACK INTO R2 
251 012601 MOV (SP)+,R1 + ¢POP STACK INTO R1 
OS21 se BSeoS wrt (SP)+,RO 72POP STACK INTO RO 
2 -SBTTL BINARY TO ASCII AND TYPE ROUTINE 
2 SEERA AARAAEAEEREAAEREERERERRRAERAEREERERERERERERAERREKKEKKEKEE 
+ *THIS ROUTINE IS USED TO CHANGE 16-BIT BINARY NUMBER TO A 16-B8IT 
> *y hla NUMBER AND TYPE IT 
.* MOV NUMBER , - (SP) ;NUMBER TO BE TYPED 
o* TYPBN + TYPE IT 
025136 010146 STYPBN: MOV R1,-(SP) ot i R1 ON THE STACK 
025140 016601 000006 MOV 6(SP),R1 7:GET THE INPUT NUMBER 
025144 000261 SEC 72SET ‘'C'' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
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BINARY TO ASCII AND TYPE ROU 


025210 


025212 


Oo 
Nm 
wi 
NM 
ry 
oa 


112737 


000060 025210 


020200 
000020 


000055 
025426 
000040 


025416 


000001 
000060 
000040 


000010 


000004 


000001 


177777 


1$: MOVB 


23: MOV 


$BIN 


#'0,$BIN 


(SP)+,R1 
2(SP) ,4(SP) 
(SP) +, (SP) 


33SET CHARACTER TO AN ASCII ‘0"'. 
2 3GET THIS BIT 


STROM SET T THE CHARACTER EQUAL TO THIS BIT 


2360, Hig HIS 
3:CLEAR ‘'C’’ SO CAN nal TRACK OF BITS 
ie 5 D0 THE NEXT BIT 


ZZADJUST THE STACK 


¢ ¢RETURN TO USER 
ORAGSE FOR ASCII CHAR. AND TERMINATOR 


-BYTE 0,0 STORA 
 SBTTL CONVERT BINARY TO DECIMAL. AND TYPE ROUTINE 


JARRE RAEEERERAEERERERERERERERERERERERREEEEEEEEEEREREEEEEE 


TATHIS ROUTINE IS USED TO CHANGE A 16-B81T BINARY NUMBER TO A ra A 


;*SIGNED DECIMAL (ASCII) NUMB 
;*NUMBER IS POSITIVE OR yg A SPACE OR A MINUS SIGN 


;*BEFORE THE FIRST DIGIT OF 


MOV 
* TYPDS 
STYPDS: 


7$: BIS 


: sREPLACED WITH SPACES. 


NUM, -(SP) 


RO,-(SP) 


6 
1(SP) ,-1(R3) 
#'0, 


Re 


RO,410 


ER AND TYPE IT. DEPENDING ON WHETHER T 


WILL BE TYPED 


THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


3PUT_THE BINARY NUMBER ON THE STACK 
::GO TO THE ROUTINE 


7=PUSH RO ON STACK 


; NTER 

SISET THE FIRST CHARACTER TO A BLANK 
3-CLEAR THE BCD _— 

3.GET THE CONSTAN 

oR Dai BCD DIGIT 


I 
>; INCREASE THE BCD DIGIT BY 1 


32ADD BACK THE CONSTANT 
23 CHECK IF BCD DIGIT=0 
THROUGH IF 


IF Q 
ii STILL "ta LEADING 0°S? 


IF NO 
7ZYES=--SET THE SIGN 
2-MAKE THE BCD DIGIT ASCII 
2 sMAKE IT A SPACE _IF NOT ALREADY A DIGIT 
sPUT THIS CHARACTER IN THE OUTPUT BUFFER 
77 JUST INCREMENT ING 
::CHECK THE TABLE INDEX 


SEQ 0111 


(ae Hy 
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| 





025426 


002746 
00 
010502 


ANNO 


SARS 
INWWG 
ROUGE 


044 


177777 


025426 
000002 


000001 
025663 
000002 
000001 
000006 
000005 


177776 


iT 2$ 3:GO DO THE NEXT DIGIT 
BGT 8$ 32G0_TO EXIT 
MOV R5,R2 23GET THE ‘-— 
BR 6$ 0 CHANGE T ASCII 
8$: TSTB (SP)+ : WAS THE LSD” THE FIRST NON-ZERO? 
BPL :BR_IF NO 
MOVB =1(SP),-2(R3) 3; YES==SET THE SIGN FOR TYPING 
CLRB (R3) ::SET THE TERMINATOR 


MOV (SP)+,R5 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 ; 
(SP)+,RO : ¢POP STACK _INTO RO 
NUMB 


$DBLK E 
MOV 3(SP) ,4(SP) *:ADJUST THE STACK 
MOV (SP) +. (SP) 
RTI :zRETURN TO USER 
$DTBL: Hs a 


SDBLK: .BLKW 4 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


EPP P TPT i iri iii iit titi tit titi iti ti tt ttt 

TRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

; *$TYPOS-~-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3*CALL: 

se MOV NUM, -(SP) : <NUMBER TO BE TYPED 

hed TYPOS 3:CALL_FOR TYPEOUT 

ze -BYTE N 7:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
te -BYTE ™ ::M=1 OR O 

en 321=TYPE LEADING ZEROS 

i ;0=SUPPRESS LEADING ZEROS 


* 


3 *STYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
te hyp OR S$TYPOC 


:* MOV NUM, =(SP) ; ;NUMBER TO BE TYPED 
‘* TYPON 2-CALL FOR TYPEOUT 
{#STYPOC-—~ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*® 8 

se MOV NUM ,=(SP) NUMBER TO BE TYPED 
se TYPOC SECALL FOR TYPEOUT 


$TYPOS: MOV a(SP) ,~(SP) sit Ste THE MODE 
MOVB 1(SP) , SOF ILL OAD ZERO FILL SWITCH 
MOVB (SP)+,$OMODE+1 ; + NUMBER OF DIGITS TO TYPE 
ADD Et ay ;ZADJUST RETURN ADDRESS 


3:SET THE ZERO FILL SWITCH 
MOVB #6 , SOMODE +1 32SET A $1X(6) DIGITS 
$TYPON: MOVB #5, $0CNT 2¢SET THE ITERATION COUNT 


22 SAV 
MOV R4,~(SP) 22SAVE R4 


SEQ 0112 


C 
B 


or RMO5/3/2 DSKLS TST 2 - 


NARY TO OCTAL (ASCII) 


010546 
11 


AND T 
025663 


000006 
025662 
025661 
000012 


025662 
177770 


000002 000004 
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MOV R5,=(SP) 3-SAVE_R5 


move SOMODE +1 .R4 ::GET THE NUMBER OF DIGITS TO TYPE 
ADD #6 RG 7: SUBTRACT IT FOR MAX. ALLOWED 
MOVB  R4, SOMODE ::SAVE IT FOR USE 
MOVB  $0FILL.R4 ':GET THE HERO FILL SWITCH 
MOV 12(SP) _RS ::PICKUP THE INPUT NUMBER 
CLR R3 [:CLEAR THE OUTPUT 
1$: ROL R5 ::ROTATE MSB INTO Pate 
BR 3$ :GO DO MSB 
2s: ROL RS ::FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 ::GET LSB OF THIS DIGIT 
DECB § $OMODE ::TYPE THIS DIGIT? 
BPL 7$ IF NO 
BIC #177770,R3 T:GET RID OF JUNK 
BNE 4$ ::TEST FOR 0 
TST R4 +: SUPPRESS THIS 0? 
BEQ 5$ :3BR IF Y 
4$: INC R4 ::DON'T SUPPRESS ANYMORE 0°S 
BIS #°0,R3 :MAKE THIS DIGIT ASCII 
5$: BIS #° °R3 MAKE ASCII IF NOT ALREADY 
MOVB R3,8$ :: SAVE FOR TYPI 
TYPE 8$ :GO TYPE THIS DIGIT 
7$: DECB $0CNT ::COUNT BY 1 
BGT 2$ :BR IF MORE TO DO 
BLT 6$ IF DONE 
INC R4 SZ INSURE LAST DIGIT ISN'T A BLANK 
BR 2$ 1:60 DO THE LAST DIGIT 
6$: MOV (SP)+,R5 RESTORE R5 
MOV (SP) +_RG S:RESTORE R4 
MOV (SP) +_R3 [RESTORE R3 
MOV 2(SP) °4(SP) ::SET THE STACK FOR RETURNING 
MOV (SP) +, (SP) 
RTI  :RETURN 
8$: .BYTE 0 7:STORAGE FOR ASCII DIGIT 
-BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 T:0CTAL DIGIT COUNT ER 
SOFILL: .BYTE 0 :3ZERO FILL SWITC 
SOMODE : : NUMBER OF DIGITS TO TYPE 


E: .WORD 0 
-SBTTL TYPE ROUTINE 


FERRARA AEREREERAEREEERERERERREREREREREERERAEEEREEEEEEEREERERKEEEE 


; SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 iF 


*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
teNOTET: SNULL CONTAINS THE CHARACTER 9 BE USED AS THE FILLER CHARACTER. 
7 *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
3 *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
7*CALL: 
3*1) USING A TRAP INSTRUCTION 
eon TYPE -MESADR :zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
i* TYPE 


se ME SADR 


SEQ 0113 


wa ey 


Se murine RMO5/3/2 DSKLS 


105737 
100002 


105777 
100022 
017746 
042716 
122716 
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001173 


000011 
000200 


026214 
026076 
001172 
001170 


00001 


026076 
026214 


000040 
026076 
000007 


153056 
153052 
177600 
000025 


sHORIZONTAL TAB 





STPFLG 
1$ 


3$ 

RO,=(SP) 
a2(SP) ,RO 
MAPTENV , SENV 
62$ 


M#APTSPOOL , SENVM 
62$ 


RO,61$ 
—- 


MAPTCSUP ,SENVM 


(RO) +,=(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 

WAT (SP) 
#CRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2s 


PC, STYPEC 
SFILLC,(SP)+ 


$NULL .-(SP) 
1(SP) 

63 

PC, $TYPEC 
SCHARCNT 
PROCESSOR 
#" , (SP) 
PC, $TYPEC 
#7. $CHARCNT 
9$ 

(SP)+ 

23 


#SXOFF , (SP) 


i1S in ve A TERMINAL? 
; sHALT HERE IF NO TERMINAL 
AVE 


ee 


E RO 
33GET ADDRESS OF ASCIZ STRING 
ae ING IN APT MOD 


;NO,GO CHECK FOR APT CONSOLE 


37SPOOL MESSAGE TO APT 

32NO,GO CHECK FOR CONSOLE 

23S TUP MESSAGE ADDRESS FOR APT 
ze MESSAGE T 

3 sMESSAGE AD RES. 

33APT CONSOLE SUPPRESSED 

ht aa T OUT 


H_ CHARACTER TO BE TYPED ONTO STACK 
7:BR IF IT ISN'T THE TERMINATOR 
celF twee POP IT OFF THE STACK 


OR 
3 SADJUST RETURN PC 
URN 
+ [BRANCH IF <HT> 
:;SRANCH IF NOT <CRLF> 


:;POP <CR><LF> EQUIV 
73 TYPE A CR AND LF 


::CLEAR CHARACTER COUNT 
:2GET_NEXT_ CHARACTER 
:2GO TYPE THIS CHARACTER 
221S IT TIME FOR FILLER CHARS.? 
:21F NO GO GET NEXT 
23GET # OF FILLER CHARS. NEEDED 
THE NULL CHAR 
; DOES A NULL NEED TO BE TYPED? 
IF we POP THE NULL OFF OF STACK 
£260 TYPE A NULL 

DO NOT COUNT AS A COUNT 


seteeas 


3REPLACE TAB WITH SPACE 
22 TYPE A SPACE 
: sBRANCH IF NOT AT 
STOP 


‘POP SPACE OFF STACK 
:2GET NEXT CHARACTER 


‘ter IFN IN evap BUF FER? 


ET CHAR 
7: STRIP en a BITS 
22:WAS CHAR 
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CZRMQAO RMO5/3/2 DSKLS TST 2 
TYPE ROU SEQ 0115 
026120 001012 BNE 102$ ::BR IF NOT 
026122 101$: 
026122 105777 153032 TSTB = a$TKS ::WAIT FOR CHAR 
026126 100375 BPL 101$ 
26130 117716 152926 MOVB TKB, (SP ::GET CHAR 
26134 042716 177600 BIC #177600,(SP) ::STRIP IT 
026140 122716 21 CMPB (SP t:WAS IT XON? 
026144 001 BNE ::BR IF NOT 
026146 102$: 
026146 005726 TST (SP)+ riF IX STACK 
026150 10S: 
026150 105777 153010 TSTB = aSTPS ::WAIT UNTIL PRINTER IS READY 
026154 100375 BPL 10$ 
026156 116677 000002 153002 MOVB = 2(SP) ,a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
26164 122766 000015 000002 CMPB #CR,2(SP) 3231S CHARACTER A CARRIAGE RETURN? 
026172 001003 BNE 1$ BRANCH IF NO 
026174 105037 026214 CLRB SCHARCNT 3 YES~=CLEAR CHARACTER COUNT 
26200 BR $TYPE TEXIT 
26202 122766 000012 000002 1S: CMPB af 2S?) 3318 CHARACTER A LINE FEED? 
026210 001402 BEQ $TY, : BRANCH IF YES 
C26212 105227 INCB Cpe ::COUNT THE CHARACTER 
026214 SCHARCNT:.WORD 0 :: CHARACTER COUNT STORAGE 
026216 000207 $TYPEX: RTS PC 
6 .SBTTL SCOPE HANDLER ROUTINE 
SERA EEEEREREEEKEEREKREKEREREEEEKEREREREEEKEEKEREREEK 
;STHIS ROUT INE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
7*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
*SW14=1 LOOP ON TEST 
:*SW11=1 INHIBIT ITERATIONS 
+ *SWO9=1 LOOP ON ERROR 
+ *SWO8=1 LOOP ON TEST IN SWR<7:0> 
> *CALL 
:* SCOPE 2: SCOPE=10T 
026220 SSCOPE : 
026220 10441 CkS z:TEST FOR CHANGE IN SOFT~SWR 
026222 032777 040000 152724 1S: BIT #B1T14,aSWR :3LOOP ON PRESENT TEST? 
026230 00113 BNE SOVER “YES IF SW14=1 
:HAHHASTART OF CODE FOR THE XOR TESTERA rTyY) 
026232 000416 $XxTSTR: BR 63 31F RUNNING ON THE ‘'XOR' TESTER CHANGE 
: THIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
026234 013746 000004 MOV @#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
026240 012737 026260 000004 #5$, AERRVEC ZISET FOR TIMEOUT , 
026246 005737 177060 TST a#177060 :TIME OU 
026252 012637 MOV (SP) +, A#ERRVEC ; 3RESTORE THE ERROR VECTOR 
026256 500 BR S$SVLAD ::GO TO THE NEXT TEST 
026260 022626 5$: CMP (SP) +, (SP)+ 3 CLEAR THE STACK AFTER A TIME OUT 
026262 012637 000004 MOV (SP) +; AMERRVEC STORE THE ERROR VECTOR 
026266 40 BR $ COOP ON THE PRESENT TEST 
026270 6$:;MAAHHEND OF CODE FOR THE XOR : {LOOP ON TH 
026270 032777 000400 152656 BIT #31T08, aSwWR 3:LOOP ON SPEC. TEST? 
026276 001421 BEQ 2 BR 
026300 005046 CLR -(SP) [:CLEAR A TEMP. LOCATION 
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SCOPE HANDLER ROUTINE SEQ 0116 
026302 117716 152646 MOVB @SWR, (SP) + sPICKUP THE pesinee TEST NUMBER 
026306 001414 BEQ 8$ ;;BRANCH IF BAD TEST NUMBER IN SWR 
026310 022716 000024 CMP #24, (SP) 3 CHECK THE NUMBER IN THE SWR 
026314 002411 BLT 8$ ;;BRANCH IF TEST NUMBER IS OUT OF RANGE 
026316 011637 001116 MOV (SP) .STSTNM : {UPDATE THE TEST NUMBER 
026322 005316 DEC (SP) UP BY ONE 
026324 006316 ASL (SP) I SCALE THE TEST NUMBER ~ BR INDEX 
026326 062716 026532 ADD M$SWO8TBL,(SP) ;;FORM THE ADDRESS OF TEST POINTER 
026332 013637 001122 MOV a(SP)+,$LPADR +3SET LOOP ADDRESS TO DESIRED TEST 
026336 000466 BR rH ER :GO LOOP ON THE TEST 
026340 005726 8$: TST (SP) + SCL LEAN THE BAD TEST NUMBER OFF OF THE STACK 
026342 105737 001117 2$: TSTB SERFLG 7zHAS AN ERROR OCCURRED? 

026346 001421 BEQ 3$ 3;BR IF NO 
026350 123737 001131 001117 CMPB SERMAX , SERFLG 33MAX. ERRORS FOR THIS TEST OCCURRED? 
026356 101015 BHI $ se F 
032777 001000 152566 BIT #BITO9,aSWR 3;LOOP ON ERROR? 
026366 001404 BEQ 4$ 77BR IF 
026370 013737 001124 001122 /7$: MOV SLPERR,$LPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
026376 000446 BR SOVER 
6400 105037 001117 4$: CLRB SERFLG +3 ZERO THE ERROR FLAG 
026404 005037 001206 CLR STIMES 3;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
026410 000415 BR 1$ +s ESCAPE TO THE NEXT TEST 
026412 032777 004000 152534 3$: BIT #B1T11,aSWR :EINMIBIT ITERATIONS? 
026420 001011 BNE 1$ ; BR YES 
026422 005737 001230 TST SPASS :31F PRs PASS OF PROGRAM 
026426 001406 BEQ 1$ INHIBIT ITERATIONS 
026430 005237 001120 INC $SICNT : : INCREMENT ITERATION COUNT 
026434 023737 001206 001120 CMP STIMES,,SICNT +s CHECK THE NUMBER OF ITERATIONS MADE 
026442 002024 BGE SOVER ;;BR IF MORE ITERATION REQUIRED 
026444 012737 000001 001120 1$: MOV #1,$ICNT 2 :REINITIALIZE THE ITERATION COUNTER 
026452 013737 026530 001206 MOV SMXCNT ,STIMES ;SET NUMBER OF ITERATIONS TO DO 
026460 105237 001116 SSVLAD: INCB STSTNM +: COUNT TEST NUMBERS 
026464 113737 001116 001226 MOVB STSTNM,STESTIN ;;SET TEST NUMBER IN APT MAILBOX 
026472 011637 001122 MOV (SP) ,SLPADR 7:SAVE SCOPE LOOP ADDRESS 
026476 011637 001124 MOV (SP) ,SLPERR :2SAVE ERROR LOOP ADDRESS 
026502 005037 001210 CLR SESCAPE 7;CLEAR THE ESCAPE FROM ERROR ADDRESS 
265 112737 1 001131 MOVB #1,SERMAX 7ZONLY ALLOW ONE(1) ERROR ON NEXT TEST 
026514 013777 001116 152434 $OVER: MOV STSTNM,a@DISPLAY ssDISPLAY TEST NUMBER 
026522 013716 001122 MOV SLPADR, (SP) FUDGE RETURN ADDRESS 
026526 000002 RTI ::FIXES PS 
026530 000024 SMXCNT: 20. - NUMBER OF ITERATIONS 
026532 SSWO8TBL : 
026532 005400 -WORD TST1+2 7zSTARTING ADDRESS OF TEST 1 
026534 005710 -WORD TST2+2 zz STARTING ADDRESS OF TEST 2 
536 72 -WORD TST3+2 :2STARTING ADDRESS OF TEST 3 
026540 42 «WORD TST4+2 72STARTING ADDRESS OF TEST 4 
26542 006372 -WORD TST5+2 Z2STARTING ADDRESS OF TEST 5 
026544 007456 «WORD TST6+2 Z2STARTING ADDRESS OF TEST 6 
010526 -WORD TST7+2 38 TING ADDRESS TEST 7 
026550 01 eWORD TST10+2 3: STARTING ADDRESS TEST 10 
026552 010750 eWORD TST11+2 72STARTING ADDRESS OF TEST 11 
554 0112 eWORD TST12+2 z2STARTING ADDRESS OF TEST 4 
026556 011550 eWORD TST13+2 72STARTING ADDRESS OF TEST 1 
026560 0121 -WORD TST14+2 22STARTING ADDRES TEST 14 
026562 012462 -WORD TST15+2 2s STARTING ADDRESS OF TEST 15 
026564 013132 eWORD TST16+2 ZSTARTING ADDRESS OF TEST 16 
026566 013556 -WORD TST17+2 [:STARTING ADDRESS OF TEST 17 








CZRMQAO uy id ome TST 2 
SCOPE HANDLER ROUTINE 


0 
026776 





020116 


402 
013716 
005737 
001402 
013716 
022737 
001001 


152222 


001000 


001124 
001210 


001210 
021546 


N 9 
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152336 
152326 


001242 
026722 


152206 


000042 


- SBTTL 


; SAVE. THE ERROR ITEM 
GO TOE 


1$: 


20$: 


21$: 
228: 
2$: 


3$: 
4$: 


5$: 


«WORD TST20+2 
«WORD TST21+2 
WORD TST22+2 
«WORD TST23+2 
WORD 24 


. TST24+2 
ERROR HANDLER ROUTINE 
RRA REET RRR ERE RETR ERR ee 


SR THIS ROUTINE WILL prey THE ERROR FLAG AND THE ERROR COUNT, 


RRTYP ON E 


2s STARTING ADDRESS OF TiST 20 
zeSTARTING ADDRESS OF TEST 21 
ZZSTARTING ADDRESS OF TEST 22 

:ESTARTING ADDRESS OF TEST 23 

zsSTARTING ADDRESS OF TEST 24 


_ AND THE ADDRESS OF THE ERROR CALL 
{THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


HALT ON ERR 
INHIBIT ERROR TYPEOUTS 


BELL ON ERR 
LOOP ON ERR 
N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

acest FOR ae IN SOF T=-SWR 
SERFLG 3SET T HE ERROR FLAG 
7’ sDON'T LET THE FLAG GO TO ZERO 
STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
#B1T10,aSWR ;;BELL ON ERROR? 
1$ 3zNO - SKIP 
, SBELL 73RING BELL 
SERTTL 3;;COUNT THE NUMBER OF ERRORS 
Mg Oe ge 7:GET ADDRESS OF ERROR INSTRUCTION 
@SERRPC,$ITEMB ;;STRIP AND SAVE " poe ITEM CODE 
#B1T13.,a 72SKIP an 5 IF $ 
0s ::SKIP TYPEOUTS 
PC, ERRTYP ::G0 TO USER ERROR ROUTINE 
-SCRLF 
#APTENV, SENV 7 RUNNING IN APT MODE 

:3NO, SKIP APT ERROR REPORT 
SITEMB,21$ ;SET ITEM NUMBER AS ERROR NUMBER 
SP eBAT eS + :REPORT FATAL ERROR TO APT 
0 
22$ 3: 7APT ERROR LOOP 
aSwR 7 HALT ON ERROR 
3$ 23 SKIP IF CONT INUE 

;HALT ON ERROR! 

z:TEST FOR CHANGE IN SOFT-SWR 
#BITO9,aSWR 33007 ON ERROR SWITCH SET? 
SLPERR, (SP) + FUDGE RETURN FOR LOOPING 
SESCAPE 3:CHECK FOR AN ESCAPE ADDRESS 
5$ 23 IF NONE 
SESCAPE , (SP) 72FUDGE RETURN ADDRESS FOR ESCAPE 
ASENDAD , 0442 few to AUTO-ACCEPT? 
6$ 3; BRANCH IF NO 


SEQ 0117 


ne | 





CZRMQAQ RMOS/3/2 DSKLS 
ERROR HANDLER ROUTINE 


027012 
0 6 


027154 


027011 


117746 


000451 
021627 





TST 2 


152074 
177600 
000003 
030176 


027012 
iit 
000176 
000001 
001212 


000023 


61 
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027004 
027006 
000060 


000062 
152100 


001154 


027002 


6$: 
RTI 
-SBTTL TTY INPUT ROUTINE 


FARRAR AARAREREAEEAEEEARARARAERERERRRRREAO RARE CHARA AAAERE 


7 RETURN 


STKCNT: .WORD 0 3 NUMBER OF ITEMS IN QUEUE 
STKQIN: .WORD 0 32 INPUT POINTER 

$TKQOUT: .WORD 0 ; OUTPUT POINTER 

$STKQSRT: .BLKB 1 iz TTY KEYBOARD QUEUE 
es 


:*TK INITIALIZE ROUTINE 
>*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


:*CALL: 
7* JSR PC, STKINT 
s* RETURN 


$TKINT: CLR STKCNT CLEAR COUNT OF ITEMS IN QUEUE 


MOV #STKQSRT,STKQIN ;:MOVE THE STARTING ADDRESS OF THE 
MOV $TKQIN,STKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 


MOV WSTKSRV ,@ATKVEC 2¢ INITIALIZE ae KEYBOARD VECTOR 
MOV #200, aNTKVEC+2 ::'BR LEVEL 4 


TST a$TkB 3-CLEAR DONE FLAG 
MOV #100, a$TKS : ENABLE TTY KEYBOARD INTERRUPT 
RTS PC : RETURN TO CALLER 


:*TK SERVICE ROUTINE 

3*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:*IT IN THE QUEUE. 

s*IF THE CHARACTER IS A *‘CONTROL-C"’ (“C) STKINT IS CALLED AND 


>*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C'' RESTART ADDRESS (SHUT) 


$TKSRV: MOVB = a$TKB,-(SP) z:PICKUP THE CHARACTER 
BIC #7177 (SP) ::STRIP THE JUNK 


CMP (SP) ,& :IS IT A CONTROL C? 
BNE 1$ ry. CH IF NO 
TYPE -SCNTLC +: TYPE A CONTROL-C (*C) 
JSR PC,STKINT INIT THE KEYBOARD 
TST (SP) + 372 CLEAN STAC 
JMP SHUT 7 CONTROL C RESTART 

1$: CMP (SP) ,47 :zI1S IT A CONTROL G? 
BNE 33 CH IF NO 
CMP ASWREG , SWR 7218S SOFT-SWR SELECTED? 
BEQ 6$ 3:G0 TO SWR CHANGE 

2s: 
CMP #1,$TKCNT 221S THE QUEUE FULL? 
BNE $ CH ra 
TYPE , SBELL : RING THE TTY BELL 
TST (SP)+ ; CLEAN CHARACTER OFF OF STACK 
BR 53 - TZEXIT 

3$: CMP (SP) 423 4b IT A CONTROL-S? 


SEQ 0118 


-— ——__- a _ 
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TTY INPUT ROUT! SEQ 0119 

027160 001021 BNE 32$ ;BRANCH IF NO 
027162 005077 151772 CLR asTks $ SDISABLE TTY KEYBOARD INTERRUPTS 
027166 905726 TST (SP)+ [CLEAN CHAR OFF STA 
027170 105777 151764 31$: TSTB = aS TKS : WAIT FOR A CHAR 
027174 100375 BPL 31$ :3LOOP UNTIL ITs THERE 
027176 117746 151760 MOVB  a$TKB,-(SP) GET THE CHARACTER 
027202 042716 177600 BIC #°C177, (SP) + MAKE IT 7-B1T ASCII 

7 022627 000021 CMP (SP)+,4#21 :31S IT A CONTROL~? 
027212 . 001366 BNE 31$ (CH IF NO 
027214 012777 000100 151736 MOV #100, a$TKS i ;REENABLE TTY KEYBOARD INTERRUPTS 
027222 000002 RTI £ TURN 
027224 005237 027002 328: INC STKCNT :iCOuNT THIS CHARACTER 
027230 021627 000140 CMP (SP) ,#140 :IS IT UPPER CASE? 
027234 002405 BLT 4 BRANCH IF YES 
027236 021627 000175 CMP (SP) #175 THIS a A SPECIAL CHAR? 
027242 003002 BGT 4$ ::BRANCH IF YES 
027244 042716 000040 BIC #40, (SP) MAKE IT UPPER CASE 
027250 112677 177530 4$: MOVB  (SP)+,a$TKQIN ::AND PUT IT IN QUEUE 
027254 005237 027004 INC $TKQIN :ZUPDATE THE POINTER 
027260 023727 027004 027011 CMP STKQIN,#STKQEND ;:GO OFF THE END? 

001003 BNE : :BRANCH IF NO 

027270 012737 027010 027004 MOV WSTKQSRT,STKQIN ::RESET THE POINTER 
027276 000002 S$: RTI  ; RETURN 


Ie pat rape nese tna ry ict 
+ &SOF TWARE SWITCH REGISTER ange Ay TINE. 

z*ROUTINE IS ENTERED FROM T HE TRAP HANDLER, WILL 

*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


* #CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
027300 022737 000176 001154 $CKSWR: ASWREG, SWR 1S THE SOFT=SWR SELECTED 
027306 001124 BNE 5$ Hf F NOT 
027310 105777 151644 TSTB = aSTKS ::1S A CHAR WAITING? 
027314 100121 BPL 15$ ::1F NOT, EXIT 
027316 117746 151640 MOVB  a$TKB,-(SP) ty 
027322 042716 177600 BIC #°C177, (SP) + MAKE iT 7-BIT ASCII 
027326 021627 000007 CMP (SP) #7 2218 IT A CONTROL=G? 
027332 001300 BNE 2$ IF NOT PUT IT IN THE TTY QUEUE 


J FARA AARRERAEEREEEERERAEAEEARRERERERRAEREEREREREREREREREKERE 


= *CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
:*ROUTINE OR FROM THE wy SWITCH REGISTER TRAP CALL, AS A RESULT OF A 


| 
| 
| 
027266 


>*CONTROL~G BEING TYPED, THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
027334 123727 001150 000001 6$: CMPB SAUTOS.#1 22ARE WE RUNNING IN AUTO-MODE? 
027342 001674 BEG es ; BRANCH IF YES 
027344 005726 TST (SP) + 3:CLEAR CONTROL-G OFF STACK 
027346 0047357 027012 JSR PC, STKINT :2FLUSH THE TTY INPUT QUEUE 
027352 005077 151602 CLR a$TKS DISABLE TTY KEYBOARD INTERRUPTS 
027356 112737 000001 001151 MOVB #1,SINTAG 37SET INTERRUPT MODE INDICATOR 
027364 104401 030210 TYPE -SCNTLG 32ECHO THE CONTROL-G (*G) 
027370 104401 030215 SGTSWR: TYPE . SMSWR 32 TYPE CURRENT ye he 
027374 013746 000176 MOV SWREG, = (SP) 2s SAVE SWREG FOR TYPEOU 
027400 104402 TYPOC Lom a ASCIIYALL DIGITS) 
027402 104401 030226 TYPE . SPNEW PROMPT FOR 
027406 005046 19$: CLR ~(SP) 7: CLEAR COUNTER” 
027410 005046 CLR ~(SP) ts NEW SWR 





_ 


027412 
027416 


027420 
027424 


10 git AS DSKLS 


105777 
100375 


117746 
0427 


TST 2 


151542 


000060 
000002 


000002 
177776 
001216 
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000001 
151474 


151422 


000001 
151400 


7$: 


10$: 


16$: 


17$: 


18$: 


TSTB 
BPL 


BR 
-DSABL LSB 


asTks 

7$ 
a$TKB,-(SP) 
#°C177, (SP) 
(SP) #3 
»SCNTLC 
SINTAG, #1 
#100, a$TKS 
SHUT 


(SP) ,#25 

10$ 

- SCNTLU 
p 


2(SP) 
-2(SP), (SP) 
7$ 


$QUES 
20$ 


33CHAR THERE? 
:31F NOT TRY AGAIN 


33PICK UP 
3 sMAKE IT Bit ASCII 


si1S IT A _CONTROL=C? 


BRANCH IF NOT 
3YES, ECHO CONTROL=C (“C) 
2: CLEAN UP S$ 


TACK 
:REENABLE my KEYBOARD INTERRUPTS? 

d SBRANCH TTY KEYBOARD INTERRUPTS 

SI CONTROL-C RESTART 


:zIS IT A CONTROL-U? 

3; BRANCH IF NOT 

seYES, ECHO CONTROL=-U (“U) 
GNORE PREVIOUS INPUT 

S:LET’ S TRY IT AGAIN 

zzIS IT A <CR>? 


ee CH IF NO 
77YES, - IT THE FIRST CHAR? 


Y KBD INTERRUPTS? 
7 RE-ENABLE TTY KBD INTERRUPTS 


BRANCH IF He 
::STRIP-OFF ASCII 
i318 THIS THE FIRST CHAR 


H IF YES 
:3NO, SHIFT PRESENT 
3: CHAR OVER TO MAKE 
;; _ ROOM NEW 


: SIMULATE CONTROL -U 


FARRAR ARAERAREEEEEEERERERARREKEEAEEAEEAEERERREERAERREEERERE ED 


SSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


:*CALL: 


” RDCHR 


3:GET A CHARACTER FROM THE QUEUE 


SEQ 0120 








— 
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TTY INPUT ROUTI SEQ 0121 

7* RETURN HERE 77 CHARACTER IS ON THE STACK 
:* 7zWITH PARITY BIT STRIPPED OFF 

027642 011646 SRDCHR: MOV (SP) ,=(SP) ; PUSH DOWN THE PC AND 

027644 016666 000004 000002 MOV 4 (SP), 2(SP) THE PS 

027652 005066 000004 CLR 4(SP) :3GET READY FOR A — 

027656 005046 CLR (SP) ;PUT NEW PS ON STA 

027660 012746 027666 MOV #64$,-(SP) PUT NEW PC ON STACK 

027664 000002 RTI 3; ;POP NEW PC AND PS 

027666 64$: 

027666 005737 027002 1$: TST STKCNT 7zWAIT ON A CHARACTER 

027672 001775 BEQ 1$ 

027674 005337 027002 DEC STKCNT 7 DECREMENT THE COUNTER 

027700 117766 177102 000004 MOVB SS TKOOUT, 4 (SP) 22GET JUNE CHARACTER 

027706 005237 027006 INC $TKQOUT ;UPDATE THE POINTER 

027712 023727 027006 027011 CMP $TKQOUT, #STKQEND “$2DID IT GO OFF OF THE END? 

027720 001003 BNE 2$ CH IF 

027722 012737 027010 027006 MOV #$TKQSRT, $TKQOUT’ i ZRESET THE POINTER 


FERRARA ERERAERERREREAREREEERERREREREREERRRERRRKKEE 


[*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


>*CALL: 

. 32 INPUT A STRING FROM THE TTY 

* RETURN HERE 2 sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
. 32: TERMINATOR WILL BE A BYTE OF ALL O'S 


| 
| 
| 
| 
| 
| 
027730 000002 2s: RTI 


027732 010346 SRDLIN: MOV R3,-(SP) ZSAVE R3 
027734 005046 CLR -(§P) ':CLEAR THE RUBOUT KEY 
027736 012703 030166 1$: MOV ASTTYIN,R3 +:GET ADDRESS 
027742 022703 030176 23: CMP ASTTYIN¢8..R3 BUFFER FULL? 
027746 101456 BLOS 4$ :3BR IF YES 
027750 104411 RDCHR 'GO READ ONE CHARACTER FROM THE TTY 
027752 112613 MOVB = (SP) +, (R3) T2GET CHARACT ER 
027754 122713 000177 10$:  CMPB #177, (R3) t:1S IT A RUBOUT 
027760 001022 BNE 5$ ::BR IF NO 
027762 005716 TST (SP) 7321S THIS THE FIRST RUBOUT? 
027764 001007 BNE 6$ ::BR IF 
027766 112737 000134 030164 MOVB #'\,9$ ':TYPE A BACK SLASH 
027774 104401 030164 TYPE, 
030000 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
030004 005303 6S: DEC R3 :BACKUP BY 
030006 020327 030166 CMP R3,ASTTYIN oF ag EMPTY? 
030012 103434 BLO 4 BR IF YES 
030014 111337 030164 MOVB = (R3),9$ i SETUP TO TYPEOUT THE DELETED CHAR. 
030020 104401 030164 TYPE 9$ TYPE 
030024 000746 BR 3$ ::GO READ ANOTHER CHAR. 
030026 005716 5$: TST (SP) ::RUBOUT, KEY SET? 
030030 001406 BEQ 7$ ::BR IF 
030032 112737 000134 030164 MOVB = #'\,9$ TI TYPE A NOACK SLASH 
030040 104401 030164 TYPE ,9$ 
030044 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 
030046 122713 000025 7$: CMPB ss #25, (R3) :31S CHARACTER A CTRL U? 
030052 001003 BNE [BR IF NO 
030054 104401 030203 TYPE ,$CNTLU ::TYPE A CONTROL ‘U"’ 
030060 000726 BR is +:G0 START OVER 
030062 122713 000022 8$: CMPB ss #22, (R3) t:1S CHARACTER A ‘"*R'? 


CZRMQA0 RMOS/3/2_ DSKLS 
\TTy INPUT ROUTI 


| 


o 
S 
— 

RAE 

o 
=3 

N 
g 


RRA 
So 


030 
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177777 
001220 


000004 000002 
030166 000004 


000004 000002 


177770 


4$: 
3$: 


9$: 


STTYIN: . 


23: 


3$ ; ;BRANCH IF NO 
(R3) ;3CLEAR THE CHARACTER 
~SCRLF si TYPE A ‘'CR''@ ‘LF 
$TTYIN 3: TYPE THE INPUT STRING 
$ ie PICKUP ANOTHER CHACTER 
$SQUES si TYPE A‘ 
is :CLEAR THE BUFFER AND LOOP 
“_ ;zECHO THE CHARACTER 
#15, (R3)+ + CHECK FOR RETURN 
LOOP IF NOT RETURN 
-1(R3) £2 CLEAR aig (THE 15) 
SF ; TYPE A LINE FEED 
(SP) + : CL EAN RUBOUT KEY FROM THE STACK 
(SP) +,R3 REST ORE R35 
(SP) ,-(SP) 2 ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) ,2(SP) se FIRST ASCII CHARACTER ON IT 
ASTTYIN, 4(SP) 
;RETURN 
0 STORAGE FOR ASCII CHAR, TO TYPE 
0 32 TERMINATOR 
8. 3 CARL 8 ~— FOR TTY INPUT 
/*C/<15><12> CONTR 
/*U/<15><12> {CONTROL * 
/*G/<15><12> >: CONTROL ee 
<15><12>/SWR = / 
/ NEW = / 


READ AN OCTAL NUMBER FROM THE TTY 


FRR AAEAAAEAEKERRAARERAEREERAEEEAERAEEEERREREERREREREEREERRERKEKKREE 


TSTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


:*CHANGE IT TO BINARY. 
ALL: 


2 2READ AN OCTAL 


RDOCT NUMBER 
RETURN HERE :-LOW ORDER BITS ARE ON TOP OF ~~ STACK 


:HIGH ORDER BITS ARE IN $HIOC 


(SP) ,-(SP) 7z;PROVIDE SPACE FOR THE 

Sat SP) 32 INPUT NUMBER 

RO,-(SP 7 PUSH RO ON STACK 

R1,- ~(Sp) 723PUSH R1 ON STACK 

R2,-(SP) : PUSH R2 ON STACK 
7Z;READ AN ASCIZ LINE 

(SP)+,RO 2GET ADDRESS OF 1ST CHARACTER 

Rt ;:CLEAR DATA WORD 

(RO)+,-(SP) 7zPICKUP THIS CHARACTER 

3$ :z1F ZERO GET OUT 

a] tite 

R2 

R1 r2%4 

R2 

R1 328 

Ro 

#*C7, (SP) 3z:STRIP THE ASCII JUNK 


(SP)+,R1 :-ADD IN THIS DIGIT 


SEQ 0122 


“CZRMQAO RMO5/3/2 DSKLS TST 2 
| READ AN OCTAL NUMBER FROM THE T 





10 


000012 
030340 


000002 
000020 
030360 


000002 


030414 


000004 000002 
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BR 2$ 

3$: TST (SP) + 
MOV R1,12(SP) 
MOV R2,$HIOCT 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


$HIOCT: .WORD 0 
“SBTTL. TRAP DECODER 


SEQ 0123 


;-LOOP 
:-CLEAN_ TERMINATOR FROM STACK 
73SAVE THE RESULT 


:sPOP STACK INTO R2 
+ ¢POP STACK INTO R1 
; =POP — INTO RO 


:;RETUR 
: TMIGH ORDER BITS GO HERE 


PPro Pitre ii iii iit titi iiiiititi tits 
THIS ROUTINE WILL Ag’ 8 THE LOWER BYTE OF THE ‘‘TRAP’* INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


:*GO TO THAT ROUTINE. 


STRAP: MOV 2(SP) ,-(SP) 
BIC #20, (SP) 
MOV #1$,-(SP) 
RTI 

1$: MOV RO,-(SP) 
MOV 2(SP) ,RO 
TST -(RO) 
MOVB (RO) ,RO 
ASL RO 
MOV $TRPAD (RO) ,RO 
RTS RO 


+ ¢ ASSUME THE STATUS OF 
ae THE CALLER=-DO NOT ALLOW 
32 _T=-BIT TRAPS 
2 eSET = NEW STATUS 
22GET TRAP ADDRESS 
:BACKUP BY 2 
:3GET RIGHT BYTE OF TRAP 
ITION FOR INDEXING 
> ZINDEX TO TABLE 
::G0 TO ROUTINE 


3:THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


(SP) ,-(SP) 


STRAP2: MOV 
MOV 4(SP) ,2(SP) 


RTI 
-SBTTL TRAP TABLE 


7zMOVE THE PC DOWN 
7zMOVE THE PSW DOWN 
s3RESTORE THE PSW 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


[*BY THE "TRAP’’ INSTRUCTION. 
: ROUT INE 
$TRPAD: gvoRD 


$STYPDS ;;CALL=TYPDS 
$TYPBN ;;CALL=TYPBN 


SGTSWR ;;CALL=GTSWR 


SCKSWR ;;CALL=CKSWR 
SRDCHR ;;CALL=RDCHR 
SRDLIN ;;CALL=RDLIN 
$RDOCT ;;CALL=RDOCT 


TRAP+1(104401) TTY TYPEOUT ROUTINE 
TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
eer i ineeats TYPE OCTAL NUMBER (NO LEADING ZEROS) 


ECIMAL NUMBER (WITH SIGN) 
TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


TRAP+7(104407) GET SOFT-SWR SETTING 


aed OFF ord 4 TEST FOR CHANGE IN SOFT-SWR 
11) TTY TYPEIN CHARACTER ROUTINE 

TRAP+12(1044 t1) TTY TYPEIN STRING ROUTINE 

TRAP+13(104415) READ AN OCTAL NUMBER FROM TTY 


—_—- CO 


| CZRMGAO RMOS/3/2 DSKLS 
TRAP TABLE 


030444 025042 
+1 030446 025100 


12 


: 

Nm 
Wo 
NWN 


WYIWN 
NO NOOO 
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150450 
030614 
030522 


030450 
000340 


012 


009001 
000001 


000001 


031070 
000001 
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SSAVREG ;;CALL=SAVREG TRAP+14(104414) SAVE RO-R5 ROUTINE 
SRESREG ;;CALL=RESREG _TRAP+15(104415) RESTORE RO=-R5 ROUTINE 
-SBTTL POWER DOWN AND UP ROUTINES 


JARRE AERA EREREREERERARRERREEREERAEREREREREEEEEEREEREES 


“BOWER _DOWN a es 


000024 $PWRDN: MOV UP, aA PWRVEC :gSET FOR FAST UP 

000026 MOV Are @*PWRVEC+2 ;:PRIO:7 
MOV RO,-(SP) S ush RO ON STACK 
MOV R1,-(SP) +:PUSH R1 ON STACK 
MOV R2,-(SP) ::PUSH R2 ON STACK 
MOV R3,-(SP) ::PUSH R3 ON STACK 
MOV R4,-(SP) +:PUSH R4 ON STACK 
MOV R5,-(SP) = PUSH R5 ON STACK 
MOV aSwWR,-(SP) 7:PUSH @SWR ON STACK 
MOV SP, SSAVR6 ::SAVE SP 

000024 MOV #SPWRUP ,aAPWRVEC ::SET UP VECTOR 
BR 72 7 HANG UP 


SEAR EREEEREAEEEERERRE AA EERE 


POWER UP ROUTINE 
000024 $PWRUP: MOV ASILLUP,QMPWRVEC ;;SET FOR FAST DOWN 


MOV $SAVR6, SP 33GET SP 
CLR SSAVR6 :sWAIT LOOP FOR THE TTY 
1$: INC SSAVR6 :sWAIT FOR THE INC 
BNE 1$ 220F WORD 
MOV (SP) +, @SWR :sPOP STACK INTO @SWR 
MOV (SP)+,R5 ;POP STACK INTO R5 
MOV (SP)+,R4 :sPOP STACK INTO R4 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+,R2 2:POP STACK INTO R2 
MOV (SP)+,R1 ::POP STACK INTO R1 
MOV (SP)+,RO :POP_STACK INTO RO 
000024 MOV #SPWRON, @APWRVEC igSET UP THE POWER DOWN VECTOR 
000026 MOV #340, a#PWRVEC+2 ;:PRIO:7 
TYPE REPORT THE POWER FAILURE 
SPWRMG : Ps SPOWER 7;POWER FAIL MESSAGE POINTER 
SILLUP: HALT 23 THE POWER UP SEQUENCE WAS STARTED 
BR 72 BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 77PUT THE SP HERE 


120 $POWER: rey <15><12>' POWER" 
- SBTTL iPr COMMUNI CATIONS ROUT INE 


2 REA AAA AAA RARER 


031072 $ATY1: MOVB  4#1.$FFLG ::TO REPORT FATAL ERROR 
031070 $ATY3: Move #1 SMFLG +:TO TYPE A MESSAGE 
031072 Sarva: MOVB #1,$FFLG 7:70 ONLY REPORT FATAL ERROR 
"MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1.-(SP) + PUSH R1 ON STACK 
TSTB = $MFLG 33 SHOULD TYPE _ MESSAGE? 
BEQ 5$ T: 


NO 
001242 CMPB M#APTENV, SENV 7: 0PERATING UNDER APT? 


SEQ 0124 


1 10 
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| APT COMMUNICATIONS ROUTINE SEQ 0125 
| 030672 001031 BNE 3$ ZIF NOT: BR 
030674 132737 000100 001243 BITB § #APTSPOOL,$ENVM :# SHOULD SPOOL MESSAGES? 
030702 001425 BEQ 3 F BR 
030704 017600 000004 MOV a4 (SP) ,RO SIGET MESSAGE ADDR. 
030710 062766 000002 000904 ADD #2,4(SP) 7 BUMP RETURN ADDR. 
030716 005737 001222 1$: TST SMSGTYPE i:SEE IF DONE W/ LAST XMISSION? 
030722 001375 BNE 1$ si IF NOT: WAIT 
030724 010037 001236 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 
030730 105720 2s: TSTB  ~—- (RO) + ::F IND END OF MESSAGE 
030732 001376 BNE $ 
030734 001236 SUB SMSGAD ,RO :2SUB START OF MESSAGE 
030740 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
030742 010037 001240 MOV RO, SMSGLGT [PUT LENGTH IN MAILBOX 
030746 012737 000004 001222 MOV #4, SMSGTYPE ::TELL APT TO TAKE MSG. 
030754 000413 BR 
030756 017637 000004 031002 3S: MOV a4 (SP) ,4$ :;PUT MSG ADDR IN JSR LINKAGE 
030764 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
030772 013746 177776 MOV 177776, =(SP) 7 3PUSH 199776 ON STACK 
030776 004737 025664 JSR PC, $TYPE [:CALL TYPE MACRO 
051002 000000 4$: .WORD 0 
031004 105737 031072 10$: TSTB  ~—- SFFLG zzSHOULD REPORT FATAL ERROR? 
031010 001416 BEQ 12$ ‘:IF NOT: 
031012 005737 001242 TST SENV RUNNING UNDER APT? 
031016 001413 BEQ 12$ Z1F NOT: BR 
020 005737 001222 11$: TST SMSGTYPE 3 3F INISHED LAST MESSAGE? 
031024 001375 BNE 11$ F NOT: WAIT 
031026 017637 000004 001224 MOV a4(SP),$FATAL ::GET ERROR # 
031034 062766 000002 000004 ADD #2,4(SP) :BUMP RETURN ADDR. 
031042 005237 001222 INC SMSGTYPE ti TELL APT TO TAKE ERROR 
031 105037 031072 12$: CLRB ~—s SFFLLG ::CLEAR FATAL FLAG 
031052 105037 031071 CLRB = $LFLG 7: CLEAR LOG FLAG 
031056 105037 031070 CLRB = SMFLG 7: CLEAR MESSAGE FLAG 
031062 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
031064 012600 MOV (SP)+.RO ::POP STACK INTO RO 
031066 000207 RTS PC RE TURN 
031070 000 SMFLG: .BYTE 0 ; :MESSG. FLAG 
031071 000 SLFLG: .BYTE 0 ZLOG FLAG 
031072 000 SFFLG: -BYTE 0 SZFATAL FLAG 
000200 APTSIZE = 200 
000001 APTENV = 001 
000100 APTSPOOL= 100 
APTCSUP = 040 
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| 





M -SBTTL CONSOLE MESSAGES 

3 031074 075 000 EQUALS: .ASCIZ a=a 

4 031076 101 114 114 ALL: eASCIZ @ALL@<CRLF> 

5 031103 040 077 M0 QUES: .ASCIZ @? a 

6 031107 054 040 000 COMMA: CIZ a, a ‘ 

? 031112 200 124 131 MSHELP: .ASCIZ <CRLF>@TYPE HELP TEXT (Y/N) ? @ 

8 031143 UBUSQST 

9 031143 200 103 110 eASCIZ <CRLF>@CHANGE ADDRESSES (Y/N) ? a 

10 031176 200 125 123 CNSLOO: .ASCIZ <CRLF>@USE SAME he Sa (Y/N) ? a 

11 031231 200 102 125 CNSLO1: .ASCIZ <CRLF>@BUS ADDRESS 

12 031247 040 114 111 CNSLO2: .ASCIZ @ LIMITS - Loss 160000, HI= 17XXXX@<CRLF > 
13 031311 126 105 103 CNSLOS: .ASCIZ SVECTOR ADDR 

14 031331 040 114 111 LO4: .ASCIZ @ LIMITS - oe OS HI= 1000@<CRLF><LF> 

15 031365 102 122 040 CNSLOS: .ASCIZ @BR LEVEL @ 

16 031377 040 114 111. CNSLO6: .ASCIZ @ LIMITS - LO= 0, HI= 7@<CRLF><LF> 

17 031430 200 CNSLO7: .ASCII <CRLF> 

18 031431 200 124 131 -ASCII <CRLF>@TYPE ‘'A’’ TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)@ 
19 031516 209 101 116 -ASCIZ <CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.@ 
20 031573 CNSLO8: .ASCII <CRLF> 
21 031574 040 077 111 CNSLO9: .ASCIZ @ ?ILLEGAL er eng papas 

22 031615 200 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): 

23 031631 104 122 111 GDRV: .ASCIZ /DRIVE/ 

3 111 123 LODEV: .ASCIZ / IS LOAD DEVICE/ 

25 031657 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 

26 031674 040 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 
28 -EVEN 
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-SBTTL FUNCTION CODE TABLE 
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22 


5 
55 031714 
57 031714 020000 


3 THE FUNCTION CODE TABLE _IS USED TO DEFINE STATUS CONDITIONS FOR 
EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA = BIT 15_IS SET_IN hg 3 ENTRY FOR A GIVEN FUNCTION CODE 
:1F ATA SHOULD BE SET WHEN THE FUNCTION CODE IS aS bg OTHERWISE, 
BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
sNOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
:I1T IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE = BIT 14 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
TIF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE ~ BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE ERRORS ARE ENABLED DURING THE FE CUT ION Of. es ~ COMMAND . 
:THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE"', DPE’, "UPE*’. 


IAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF READ AND WRITE ERRORS ARE ENABLED DURING THE SOLS, OF THE 
> COMMAND. THE Po here BY THIS BIT ARE ‘‘TRE’*, *DLT’’, ‘NEM’, 


: MXF'', ‘1 BT’ 


BIT 08 IS NOT USED. 
HCE =~ BIT 07 IS SET _IN THE ENTRY FOR A GIVEN FUNCTION CODE 
TIF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
;HEADER ERRORS INCLUDE ‘HCRC'', "HCE'', “FER'', AND ‘BSE"'. 
BIT 06 IS SET IN THE ENTRY FOR A GIVEN a CODE 
IF DATAT FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF 
;COMMAND. THESE ERRORS INCLUDE PMDPE’ "DCK'', AND “ECH"’. 
BIT 05 IS NOT USED. 
BIT 04 IS NOT USED. 
BIT 03 IS NOT USED. 
BIT 02 IS NOT USED. 
BIT 01 IS NOT USED. 


ILF ~ BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 


FNCDTB: FUNCTION CODE TABLE 
WORD OPI NOP 


SEQ 0127 
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OPI!ATA!ILF!IVC 
ATA! OPI! IVC! IAE 
ATA! OPI! IVC 


OPI! IVC 
OPI!ATA! IVC 
OPI !ATA! IVC 
OPI 


OPI 
OPI !ATA!ILF!IVC 


Vv 
WCE!OPI! IVC! ITAE! AOE !HCE!ECH 
WCE! OPI ie iioe !AOE !HCE!ECH 


OPI! IVC! ITAE! AOE !HCE!ECH 
OPI! IVC! IAE!AOE!HCE!ECH 
OPI !ATA!ILF! IVC 
OPI!ATA!ILF! IVC 


SEQ 0128 
ILLEGAL FUNCTION (2) 


RE CALIBRATE 
[DRIVE CLEAR 
“ RELEASE 


s OFFSET 
;RETURN TO CENTERLINE 
BACK IN PRESET 
PACK ACKNOWLEDGE 
FUNCTI 


ON 
GAL FUNCTION (26) 
; ILLEGAL FUNCTION (32) 


WRITE CHECK HEADER AND DATA 
ILLEGAL FUNCTION (54) 
ILLEGAL FUNCTION (56) 
WRITE DATA 

WRITE HEADER AND DATA 
ILLEGAL FUNCTION (64) 
a ae ae oe FUNCTION (66) 


AD DATA 
READ HEADER AND DAT. 
ILLEGAL FUNCTION (ye) 
ILLEGAL FUNCTION (76) 


ZILLE TION 
WRITE CHECK DATA 





M 
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ATTENTION (ATA) TABLE 


MN ~-SBTTL ATTENTION (ATA) TABLE 
3 032014 001 ATNTBL: .BYTE 1. 

4 032015 002 -BYTE . 

5 032016 004 -BYTE 4 

6 032017 010 -BYTE 8 

7 03 020 -BYTE 16 

8 032021 0 BYTE 32. 

9 032022 100 BYTE 64. 
10 032023 200 BYTE 128. 
- EVEN 


SEQ 0129 


ERROR MESSAGE TABLE SEQ 0130 


1 .SBTTL ERROR MESSAGE TABLE 
3 032024 046514 040126 EMT1: .WORD &MS300,EMS1 

4 032032 046532 046555 046602 EMT2: .WORD €&MS301, EOS SOS, EMS303,EMS1,EMS304 

5 032044 051772 051176 051336 “WORD €MS511.EMS500,EMS501 .EMS502,EMS503,0 
6 032060 046532 046622 046555 EMT3: WORD &MS301,EMS306, EMS 302" 

7 032066 051772 051513 051336 “WORD EMS511. *EMS505, EMS301, EMS502, 0 

8 032100 046514 046555 046636 EMT4: WORD &MS300.EMS302,.EMS307,EMS2 

9 032110 051772 051363 051336 WORD EMSs11 Emss0 EmS301. EMsS03, 0 

10 032122 046532 046677 046714 EMTS: .WORD €&MS301.EMS310.EMS 

11 032130 051772 051363 051336 “WORD €MS511.EMS502.EMS501,EMS503, EMS504 
12 032142 046760 “WORD £EMS312. 

13 032146 046532 046714 EMT6: ~WORD EMS301, MS311 

14 032154 051772 051363 051336 “WORD EMS511. “EMS50 EmSS01, EMS5C3,EMS504,,0 
15 032170 532 047016 046555 EMT7: WORD EMS301. EMS 02° 

16 032176 051772 051336 051363 “WORD £MS511 mee0T. -EMS502, EMS504,EMS503,0 
17 032212 047124 047145 047047 EMT10: _WORD EMS316(EMS317,EMS314 

18 032220 051772 051336 051363 WORD EMS511,EMS501.EMS502,0 

19 032230 047124 047145 047076 EMT11: WORD 316,EMS317, 

20 032236 051772 051336 051363 WORD €MS511,EMS501,EMS502,0 

21 032246 047124 047165 047047 EMT12: 316.EMS3 

22 032254 051772 051336 WORD €MS511.EMS501, -EMS302, 0 


25 0323502 047124 047205 oe ee EMT14: 
27 032320 047124 047205 047076 EMT15: 
28 032 51336 

29 032336 047124 047225 047047 EMT16: .WORD &MS316,EMS322.EMS314 
30 032344 36 051363 . 

4 OsSees 047124 047225 047076 EMT17: .WORD &MS316,EMS322 “EMS 5 


051363 ‘ 
047124 047165 047076 EMT13: :WORD &MS316.EMS320.EMS315 


51363 
33 032372 044506 037444 047522 EMT20: EMS71,£MS335,EMS340, EMS72,EMS377,EMS372 
34 032406 051772 051433 000000 WORD EMSS 11 o£ MS503, 

35 032414 044506 047467 047522 EMT21: WORD €&MS71 Ehesze EMS340,EMS72,EMS400,EMS372 
36 032430 051772 051433 000000 “WORD EMSSTi ce MS503,0 


032436 044642 047747 044712 EMT22: WORD EMS73 ens EMS74 EMS402,EMS70,EMS406 

032462 044642 047747 044765 EMT23: _WORD 352_,EMS75,EMS402,EMS77, EMS406 
51 “WORD £MS511,EMS505,EMS504,0 

41 032506 044642 050064 044765 EMT24: .WORD EMS73,£ m R356, ERG? EMS73 EMS402,EMS77.EMS377 

43 032532 044642 047444 047522 EMT25: . EMS 5 eiesz0. EMS76,EMS411 

44 032544 WORD EMSS. EMS50 303.0 

45 032552 046532 046622 046104 EMT26: . S301 EMS MS252,EMS253,EMS327,EMS254 

05177, 051455 051336 “WORD EMSS11. *EMS503, EMeSO7, EMS502 


47 032576 047335 04704 EMS MS314, 
0475 § 050741 EMT27: :WORD &MS337,EMS73,EMS410,EMS76,EMS411 
49 032616 051772 051433 000000 WORD €&MS511,EMS 
50 032624 047506 045145 047533 EMT30: WORD €MS337.EMS100. cmsaa)- EMS101 
51 032634 051772 051433 051460 WORD  £MS511.EMS503,EMS504,0 
52 032644 046514 046104 EMT31: WORD EMS300.EMS252 
53 032650 051772 051336 051433 WORD &MS511,EMS501 ,EMS503 0 
54 032660 045145 050361 EMT32: .WORD &MS100, 70 
55 032664 051772 051460 000000 -WORD &MS511,EMS504,0 
56 032672 045145 050765 EMT33: .WORD €&MS100,EMS412 


57 032676 051772 051460 000000 WORD &MS511,EMS504,0 





84 
85 033176 
86 033204 
87 033212 
88 
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000000 
047522 
047522 
051032 
047522 
047522 
000000 
047325 
000000 
051062 
047325 
051433 
051100 
050676 


000000 
051113 
045522 
000000 
046275 
000000 
050676 
047325 
000000 
051062 
000000 


051336 


051336 
051100 


04753. 


047763 


EMT34: 
EMT35: 
EMT36: 
EMT37: 


EMT4O: 
EMT41: 


EMT42: 
EMT43: 
EMT44: 
EMT4S: 
EMT46: 
EMT47: 
EMT50: 
EMTS1: 
EMT5S2: 
EMTS3: 
EMT5S4: 
EMT5S: 
EMT56: 
EMTS7: 
EMT60: 
EMT61: 
EMT62: 
EMT63: 
EMT64: 
EMT65: 
EMT66: 
EMT67: 





EMS102,EMS41 
emt} EMS 30 0 
MS102 


E 
EMSsii. 7EMS503,0 
EMS 100. EMS eEMS335 ,EMS340,EMS102,EMS334 
EMS100, EnS335. -EMS340,EMS102,£MS377,EMS365 
EMS413,EMS104,EMS415 
EMS511,EMS504,0 
oe ENS336. -EMS340,EMS416,EMS104 ,EMS415 
MS100, EMS336, EMS340,EMS73,EMS415,EMS402 
EMS102.6 
EMS571 “EMSS04, 0 
ENS 105. card -EMS327,EMS370 
EMS414,EMS104,EMS417 
EMS511,EMS504,0 
EMS105, -EMS4O1 -EMS327,EMS370 
EMS511,£MS503,0 
EMS300, EM 3 
EMS511,EMS501 ests 0 
EMS106.EM E 
EMS511,EM 
EMS413,EMS107.EMS420,EMS417 
EMS511,EMS504,0 
EMS110, angi tf EMS405 ,EMS107 
ath 1.E 
MS34 3, ERS. 7EMS421 
EMSS 11 
EMS414, “EMSL 16. EMS107,EMS421 


° 


1, 
msi1e. EMS4 13, EMS405 ,EMS607 
EMSS eEMS503,0 
EMS113, Emscol ;EMS327,EMS370 
AT EMS503,0 
EMS114,EMS401.EMS417 
EMS511,€ ae 3.0 
Ae 2 
MS511 “EMS506, EMS501,0 


Ems 
EMS511 -EMS307. EMS501,0 
EMS413, EMS S115.EMS420,.EMS417 


ah 1.€ 
MS346, EMS 100; EMS341,EMS101 
EMSs cE MS504,0 


—MS511,EMS501,0 
EMS300.EMS6 


SEQ 0131 
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ERROR MESSAGE TABLE SEQ 0132 





115 033466 051772 051336 .WORD €MS511, gfts501 
116 033472 040460 047420 ; EMS7,£MS333,0 
117 033500 046514 040414 047325 EMT70: [WORD EMS Wits EMS327 EMS? 
118 033510 051772 051336 051460 [WORD €MS511.EMS501,E ,0 
119 033520 040414 047444 04752¢ EMT71: :WORD &MS6,EMS mss 5 cis3e6 O,EhS10. ,£MS333,EMS342 
120 033&*4 051772 051336 05136 “WORD €MS511,£MS501,E 
121 033544 040414 047467 047522 EMT72: :WORD EMS FAs ne Ene ao O,6hS10. ,EMS334,EMS342 
122 033 051772 051336 05136 “WORD  &MS5{ "emssO1 EMS 
123 033570 046532 046361 046602 EMT73: .WORD &MS301_EM $260; Ens305. EMS11 
124 033600 051772 051336 051363 WORD EMS311. *EMS501 .EMS502.0 
125 033610 047574 047610 047542 EMT74: :WORD &MS343.EMS344. Ems 3e5. 0 
126 03 046514 040743 EMT75: WORD aS Ems 
127 033624 051772 051433 000000 “WORD EMS511.EMS503,0 
128 033632 047665 040743 047637 EMT76: .WORD &MS346 6.EMS S13, EMS345 
129 033640 051772 051433 000000 “WORD €MS511.EMS503,0 
130 033646 06 040743 047637 EMT77: <:WORD &MS337. EmSi 3 EMS345 
131 033654 051772 051433 000000 “WORD €MS511.EMS503,0 
132 033662 046532 047016 046172 EMT100: .WORD €&MS301 -EMSS13, EMS254,EMS347,EMS13 
133 033674 051772 051433 000000 “WORD €&MS511.EMS503, 
134 033702 047665 041012 047533 EMT101: WORD EMS me846. Emsie EMS341.EMS15 
135 033712 051772 051433 051336 -WORD €MS511.EMS503,EMS501,0 
136 033722 506 440 EMT102: WORD &MS337. " ? 
137 033726 051772 051433 000000 “WORD €MS511.EMS503,0 
138 033734 046532 047016 046172 EMT103: _WORD EMS 301 Ems313. ous256, EMS347,EMS15 
139 033746 051772 051433 WORD €MS511.EMS503 
033752 041012 047. WORD 14,6 


402 000000 . EMS14,EMS332,0 
33760 047665 041216 047533 EMT104: .WORD £&MS346,EMS17.EMS341,EMS16 


BYRAREUN LS SSVRGEGALESBLRARUNSSVSVRARUVLS 


1 

1 

142 033770 051772 051433 051336 -WORD EMS511.EMS503,EMS501, 

1 041216 047533 EMT105: WORD EMS 357. EMS17 EMS 341 ,EMS16 

144 034010 051772 051433 051336 .WORD EMS511,EMS50$,EMS501,0 

1 034020 046532 047016 046172 EMT106: .WORD EMS301,EMS313, ate EMS347,EMS16 
146 034032 051772 051433 “WORD EMS 03 

147 034036 041216 047402 000000 WORD EMS 17 EMS332,0 

148 034044 047665 041257 047533 EMT107: _WORD Beet EMS20 EMS341 EMS21 

149 034054 051772 051433 051336 WORD EMSS17. zEMs505 EMS 

150 034064 041257 047731 041323 EMT110: [WORD EMS 1 enset Onness0, EMS22,EMS315 
151 034100 051772 051336 000000 . WORD EMs51 oie 

152 034106 041257 047434 047724 EMT111: .WORD EMS20 ghesae EMS350,EMS22,EMS333 
153 034120 051772 051336 000000 WORD Emssti- EMS501,0 

154 034126 047506 041257 047533 EMT112: _WORD EMS 337, EMS20 EMS341 EMS21 

155 034136 051772 051433 051336 .WORD &MS511.EMS505, EMS 

156 034146 047506 041257 047533 EMT113: :WORD &MS337.EMS20 theses ,EMS21,EMS350, EMS22,EMS334 
157 034164 051772 051336 000000 .WORD €MS511. gEMS50 

158 034172 041257 047747 041323 EMT114: “WORD EmS20, Ems 52, EMS21,EMS350,EMS22,EMS333 
159 034206 051772 051336 000000 “WORD €MS511,EMS501.0 

160 034214 046532 047016 046172 EMT115: _WORD esi “Eresa3 *EMS254 ,EMS347,EMS21 
161 034226 051772 051433 WORD 

162 034232 04125 047402 900000 “WORD mse0, EMs 

163 034240 047665 041447 047533 EMT116: _WORD Ems é. ERs sens341 gEMS24 

164 034250 051772 051433 051336 “WORD €MS511.E meeaeh 

165 034260 047506 041447 047533 €EMT117: “WORD EMS 337 “ERS enesaiie 

166 034270 05177¢ 051433 051336 “WORD E 311.6 MSS 

167 034 046532 047016 046172 EMT120: :WORD &MS301. meat *EMS254. *EMS347,EMS26 
168 034312 051772 051433 ; WORD ENS 11 EnS50 

169 034316 041447 047402 000000 “WORD mses EM 332.0 

170 034324 047665 041604 047533 EMT121: |WORD Ems é, ERS? EMS341,EMS26 

171 034334 051772 051433 051336 -WORD £MS511.EMS503,EMS501 .0 
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047533 EMT122: .WwORD &MS337,EMS25,EMS341,EMS26 

051336 “WORD €MS511 “EMS mS503,EMS501,0 

046172 EMT123: .WORD &MS301.EMS313, ee * EMS347,EMS26 
WORD EMSS11/EM 503 

000000 “WORD EMS25 EMs332. 0 

046636 EMT124: .WORD £MS300,EMS27.EMS307,EMS2 

000000 “WORD EMS511.EMS503,0 


047763 EMT125: .WORD €&MS531.EMS27.EMS353 
.WORD €MS511.EMS503 


000000 WORD EMS30,EN MS315,0 
047533 &MT126: .WORD ? ,EMS27.EMS341,EMS30 
000000 WORD EMS MS511.EMS503,0 
046172 EMT127: _WORD mS301. Ems313. EMS254,EMS347,EMS30 
“WORD EMSS11°E mS303, 
000000 “WORD EMS@/ lEMeeao 
046002 €MT130: .WORD EMS31 EMS394 -EMS250 
051433 “WORD €MS511,EMS504, EMS 
046002 EMT131: .WORD EMS32 Enesco EMS eseg 
05143 -WORD €MS511,EMS504,EMS503,0 
046002 EMT132: .WORD &MS355.EMS33 émsoso. EMS341,EMS30 
000000 “WORD €MS511.EMS5 
046002 EMT133: .WORD £MS355.EMS34,EMS250,EMS341,EMS30 
000000 “WORD £MS511.EMS504,0 
046233 EMT134: .WORD EMS351. EMS4 EMS255 
000000 “WORD €MS511.EMS5 
050126 EMT135: .WORD &MS35,EMS357,EMS360,EMS15 
000000 “WORD €MS511,EMS501,0 
EMT136: .WORD EMS261.EMS362 
000000 WORD EMS511. *EMS503,0 
046636 €MT137: :WORD M5300. EMS 36 éms307, EMS2 
000000 “WORD Emss11. $501,0 
046233 EMT140: WORD esas Emsay EMS255,EMS341,EMS30 
;WORD €MS511.EMS504, 
047637 EMT141: .WORD &MS346.cMS40,EMS345 
000000 “WORD €MS511.EMS5 
047533 EMT142: .WORD &MS337.EMS40,EMS341,EMS30 
000000 WORD EMS31 1° EMSS 
042477 EMT143: .WORD €&MS363. EMS310, EMS41 
“WORD ERSS11-€ ‘0 
bey 399 EMT144: .WORD £EMS337. Emsct EMS341,EMS252,EMS327,EMS253 
000000 “WORD EnSS11 E s 
050240 EMT145: .WORD &MS41 ENs 54 ,£MS364 ,EMS252,EMS365,EMS253 
WORD att 11,€MS501,0 
042337 EMT146: .WORD E ms “EMS36 
051433 -WORD €MS511.EMS501.EMS503,0 
EMT147: -WORD EMS 4 
000000 “WORD €MS511.EMS503,0 
050261 EMT150: :WORD €&MS367. Ens 393. O4s365, EMS42,EMS354,EMS3 
000000 .WORD €MS511.EMS503.0 
EMT151: WORD 


EMS “EMS 
000000 -WORD  €MS511,EMS501,0 

0423357 EMT152: — ENS43, EMS 354 EMS36 

050261 EMT153: .WORD EMS367, EMS 238- MS365 ,EMS36,EMS370 
000000 - WORD ATE: MS503, 

050261 &MT154: .WORD MS 367, EMS353. EMS 365 .EMS36,EMS371 
000000 - WORD EMSS 11. EMS503,0 





E1 
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ERROR MESSAGE T SEQ 0134 
229 035160 046514 042700 046636 EMT155: .WORD €&MS300, EMS44 EMS307,EMS2 
230 035170 051772 05143 WORD EMSS11.E MS503,0 
231 035176 050311 047763 050261 EMT156: .WORD &MS367. Enso EMS 365,EMS44,EMS354,£MS3 
232 035212 051772 051433 WORD ENSS11:E mS503, 
233 035220 514 042741 046436 EMT157: .WORD mS590, Ens45 £MS307,EMS2 
234 035230 051772 051433 000000 ; WORD ENS511 mS503, 
235 035236 050311 047763 050261 EMT160: .WORD EMS367. Emsss3, EMS365, EMS45,EMS354,EMS3 
236 035252 051772 051433 051 WORD EMSs17. zEMS303, EMS MS501 
237 035260 042275 047420 “WORD &MS35,€MS333,0 
238 035266 046514 043016 046636 EMT161: .WORD EMS 300, EMS46 EMS307,EMS2 
239 035276 051772 051433 ;WORD €MS511.EMS503, 
5304 0475 04.5016 047763 EMT162: .WORD EMS 337, EMSG6 EMS353 
241 035312 051772 051433 051336 “WORD €MS511.EMS505,EMS501,0 
242 035322 042275 047444 047506 EMT163: .WORD 35 EMS335 —MS337, EMS41, EMS334,EMS372 
4 336 051772 051336 “WORD 511,€MS501,0 
244 035344 043100 047444 047506 EMT164: .WORD &MS47 Ehes3s —MS337,EMS41,EMS335,EMS372 
245 035360 051772 051336 WORD EMesiie $501.0 
0475 042275 047325 EMT165: .WORD EMS337. EMS35 EMS327, EMS47 
247 035376 051772 051336 WORD EMSS 11 EMS501 
248 035402 042477 047420 050425 “WORD EMS41 ENS333. EMS372,0 
249 035412 046514 0431 EMT166: .WORD mS300 EM EMS307,EMS2 
035422 051772 051336 051433 “WORD EMSs] £ mecoie EMS503, 
| 251 035432 043140 047444 047522 EMT167: .WORD EMS30, mess EMms340 EMS36,EMS333 
252 035444 051772 051336 051433 ~ WORD ms51f OERssOl e 503,0 
253 035454 047506 042275 EMT170: WORD 5 5 
051772 051336 000000 WORD pmeaay ° zEMS501 0 
043140 042246 040246 EMT171: .WORD EMS50,EMS34,EMS3 
256 035474 051772 051336 “WORD €MS511, eERSsOn 0 
257 035502 046532 046622 043207 EMT172: :WORD &MS301.EMS306.EMS51 
258 035510 051772 051336 051460 “WORD €MS511.EMS501.EMS504,0 
259 035520 050311 047763 050261 EMT173: .WORD &MS367.EM MS3953.EMS365, EMS47,EMS354,EMS3 
260 035534 051772 051336 000000 “WORD €MS511. 1:0 
261 035542 046514 046002 047325 EMT174: :WORD &MS300.EMS250.EMS327.EMS255,EMS327,EMS256 
262 035556 047533 052071 “WORD &MS341.EMS 
263 035562 051772 7WORD €MS511. -EMS301. 0 
264 035570 046514 046275 047533 EMT175: .WORD EMS MS256.EMS341,EMS600 
265 035600 051772 051336 “WORD €MS511. “ERS501- 
35606 046514 047533 EMT176: .WORD EMS ms290, EMS341,EMS600 
267 035616 051772 051460 “WORD €MS511. 
268 035624 046514 047533 EMT177: _WORD Ems 300. ENS295, EMS341,EMS600 
269 035634 051772 051460 “WORD €MS511.E 
35642 047506 043256 047533 EMT200: .WORD EMS 557, EnSS¢ —MS341,EMS601 
271 035652 051772 051336 “WORD €MS511 
047665 043256 047533 EMT201: .WORD £&MS346. 6-En852 EMS341,EMS602 
70 051772 051336 “WORD €MS511 1,0 
274 035676 047665 043207 047533 EMT202: _WORD &MS346.EMS51 éns361, EMS602 
5 051772 051336 “WORD €MS511.EMS501,0 
276 035714 047665 043256 047637 EMT203: _WORD E 346, Emseo EMS345,EMS373,EMS255 
277 035726 051772 051460 051 “WORD EMS511 “Ens504 EMS501,0 
047665 043256 047533 EMT204: _WORD EM 346. mS52 EMS341 sEms27 
279 035746 051772 051460 05135. WORD EMSS En S264 ENS 
5756 043317 050007 040246 EMT205: -WORD &MS53.EMS354.E oye 
281 035764 051772 051433 051363 WORD Emseii. ERSSOS" EMS502,£MS510,0 
282 035776 047506 043360 050463 EMT206: :WORD &MS337.EMS54,EMS374, éms380. EMS327.EMS255 
283 036012 047325 040246 ;WORD EMS327. 
051772 051460 051336 “WORD €MS511.EMS504,EMS501,0 
285 036026 043 050007 040246 EMT207: {WORD &MS54,EMS354,EMS3 








342 036710 


051772 


051772 


g 


051433 


000000 
050240 
050240 
000000 


000000 
047637 
000000 


000000 
047724 
040344 
000000 
043744 
000000 
050514 
000000 
050530 
000000 


EMT210: 
EMT211: - 
EMT212: 
EMT213: . 


EMT214: . 
EMT215: . 
EMT214: - 
EMT217: ; 
EMT220: . 
EMT221: 
EMT222: . 
EMT223: . 
EMT224: . 
EMT225: . 
EMT226: 
EMT227: ; 
EMT230: 
EMT231: ; 
EMT232: . 
EMT233: . 
EMT234: 
EMT235: . 
EMT236: 


EMT237: . 
EMT240: 
EMT241: - 
EMT242: . 


eaeaoeciad x 5 
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ERROR MESSA 


SEQ 0135 


EMS511 EMS501,0 
MS54 EMS 354 ,EMS364,EMS250 
EMSs ,EMS504, 
EMS54 ,EMS354,EMS364,EMS255 
511,€MS504,0 
7.EMS55 


-EMS504,0 
EMS3, EMS 354. EMS345 ,£MS373,EMS262,EMS327,EMS251 
EMS56,EMS335,0 

EMS ao" E 6 
EMS511.EMS501,0 
EMS57,EMS333,EMS350,EMS60,EMS334 
EMS511,EMS501,0 as 


363,EMS306,EMS 
EMS511,EMS501.0 
-EMS306,EMS61 
EMS511,EMS501,0 
62,EMS333,EMS375.EMS251 


EMS 
62,£MS333,£MS376,EMS262 
EMS> 1 1,£MS501,0 

ENS62. EMS 333 £ EMS376,EMS250 
EMS 346. EMS62 EMS341,EMS603 
EMS311.E 

MS 346, EMsG3 EMS376 EMS262 
Emest7 EMS501,E 
ens th Ms335 eaeseo- EMS363,EMS310,EMS262 
EMS63 ene3s7 EMS36,EMS372 
EMS511,E 

EMS63 gbesee EMS360,EMS15 
EMS511,EMS501,0 
MS63 £nG356 EMS361,EMS15 
EMS51 if 501.0 
EMS ens a5. £N358,ERs«1 

EMS377 EMS342,EMS365,EMS63, EMS332 

Ens5) {ERS 


367°EMS $395-ENS365, EMS63,EMS401 
EMS511.EMS503,EMS 
EMS16,EMS377 geeses EMS365 ,EMS64 ,EMS354,EMS3 
EMS511, EMSS 03,EMS501, 

5 Ens 4 ole MS2 

EMS511. EMS? 5 ERes0s 0 
EMS56.ENS3/7, ,EMS376, éms252, EMS372,EMS350 
EMS511, EMS502 aa .£MS501,0 
EMS300.EMS66 
EMS311 ey E 
Enso ens908 
—MS511, Ei 
MS4 


05.0 
EMS403,EMS604 .EMS402,EMS21,EMS377 
EMS511,EMS503_ 


emo3?3 Ems350,EMS66,EMS401 
36 eeeaay. EMS15.EMS406,EMS405 , EMS604 





CZRMQAO wer ote it 


ERROR MESSAGE T 
343 036714 


354, 037036 
355 037044 
3 062 


051433 
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000000 
047522 
000000 
050676 
050676 
000000 
050607 


000000 
050676 
000000 
047522 
000000 
050607 


000000 
047522 
000000 
050676 
000000 
050676 
000000 
050607 


000000 
050676 
000000 
047522 
000000 
050607 


000000 
047522 
000000 
050676 
000000 
050676 
000000 
050607 


000000 
050676 
000000 
050676 
000000 
050721 
000000 
047522 
000000 
050607 


EMT 243: 
EMT 244: . 
EMT245: 
EMT246: . 


EMT247: . 
EMT250: . 
EMT251: . 


EMT252: 
EMT253: . 
EMT254: 
EMT255: . 


EMT256: 
EMT257: . 
EMT260: . 


EMT261: 
EMT262: : 
EMT 263: 
EMT 264: 


EMT265: 
EMT266: 
EMT267: . 
EMT270: 
EMT271: ; 


EMT272: 
EMT273: ; 


EMS36,EMS335,0 

ENSO6 ; EMS 336 _ES340, »EMS26 ,EMS404 ,EMS405 ,EMS604 

EMSOS, EMSG01 gE EMS405 ,EMS604 

eae ne EMS405,,EMS604 
MS403,EMS604 ,EMS402,EMS24 ,EMS377 

EMSS 1. EMS503_ 

EMS 36,EMS335,0 

ENSO? ENSS3¢¢E EMS405, EMS604 


66, EnG336 EMS340,EMS15,EMS406,EMS405,EMS605 
EnSSit € 


anger g EMSGOS, EMS402,EMS21,EMS377 

EMSS 1 2EMS503 

EMS36,£MS335,0 

ENSO; EMS3364E EMS340,EMS26,EMS404 ,EMS405 ,EMS605 

EMSOS, EMS4O1 E EMS405,EMS605 

Ensst  eRS208 EMS405 ,EMS605 
MS403,EMS605,EMS402,EMS24 ,EMS377 

EMSS, EMS505 

EMS36,£MS335,0 

EMS67; EMS352.E EMS405 ,EMS605 

Eres eRS36 S336, EMS340,£MS15,.EMS406,EMS405, EMS606 
MS403, EMSGOG EMS402,EMS21 ,EMS377 

EMSS 1, EMS505 

EMS36, 


EMS335,0 

Eres en 30 EMS340,EMS26,EMS40+,EMS405,.EMS606 
MS63 EMS401 EMS405 , EMS606 

EMSs] 11,€MS503,0 

3% én 3370 EMS405 , EMS606 

EMS511,EMS50. 

EMS403.EMS606.EMS402,EMS24,EMS377 

EMS511 .EMS503 

EMS36, tne 5,0 

EMS70, EMS401 .EMS405, EMS606 


EMS511, EMS 
EMS67,EMS332,EMS405,EMS606 
EMS511,EMS503,0 

&6 EMS536 EMS407 
EMS511,E 
Bett fete EMS340,EMS15,EMS406,EMS405,EMS607 
MS403.EMS607.EMS402,EMS21,—EMS377 
ERSTE 11.EMS503 


MS27 ms336, 0 
ENS27 EMS ENS370 EMS405 ,EMS607 


EMS27 ehesas EMS405 ,EMS607 
EMS511,EMS503,0 


—EEE 


ee he ee Ee eS cone ae 
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ERROR MESSAGE T SEQ 0137 
37566 042337 050657 050676 EMT274: .WORD &MS36,EMS404,EMS405.EMS607 
| 401 037576 051772 051433 000000 - WORD EMSS11 mS5 
402 037604 043317 050572 050676 EMT275: :WORD &MS53 engi EMS405,EMS607 
403 037614 051772 051433 051363 -WORD €MS511,EMS503,EMS502,0 
404 037624 044326 047402 050476 EMT276: .WORD ersey aes35 EMS405 , EMS607 
405 037634 051772 051433 000000 . WORD Ewestic EMS503,0 
406 037642 044251 047467 047522 EMT277: :WORD EMS ENS 336 EMS340,EMS26,EMS404,EMS405,EMS607 
407 037660 051772 051433 000000 WORD ENSSIt € 
408 037666 050616 052306 050607 EMT300: :WORD &MS403., Eeseo9. EMS402,EMS24 ,EMS377 
409 037700 051772 051433 “WORD EMes17, EMS503 
410 037704 041741 047467 000000 ~ WORD EMS27, EMS 0 
411 037712 044440 050572 050676 EMT301: .WORD EMS70.EMS401.EMS405,EMS607 
051433 000000 -WORD £MS511,EMS503,0 


412 037722 051772 
413 





ie 111 
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ERROR MESSAGE TABLE SEQ 0138 

1 037730 052324 000000 EHT1 wo) €H1,0 

77 2402 000000 EHT2 WORD €Hz.0 

3 037740 052417 000000 EHTS WORD £H5.0 

4 037744 052455 000000 EHT7 WORD €H7.0 

5 037750 052474 000000 EHT47: .WORD €H47,0 

37754 052522 000000 EHT52: .WORD €H52.0 

7 037760 052620 000000 EHT57: .WORD €H57.0 

8 037764 052716 000000 EHT61: WORD €H61.0 

9 037770 052754 000000 EHT65: .WORD £H65.0 

10 037774 053030 000000 EHT71: .WORD €H71,0 

11 040000 052410 000000 EHT74: .WORD €&H3,0 

12 040004 053105 000000 EHT115: .WORD £H115,0 

13 040010 053202 000000 EHT130: .WORD £H130.0 

14 040014 053320 000000 EHT132: .WORD £H132.0 

15 040020 053416 000000 EHT142: .WORD £H142.0 

16 040024 053514 000000 EHT145: .WORD £H145.0 

17 040030 053631 000000 EHT150: .WORD £H150.0 

18 040034 053727 000000 EHT213: .WORD £&H213.0 

19 040040 054024 000000 EHT220: .WORD £€H220.0 





Ju 
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ERROR MESSAGE TABLE 


RROR SEQ 0139 

1 040044 054062 EDT1: WORD €ED!1 

2 6 054072 EDT2: WORD €ED2 

3 040050 054076 EDTS: WORD €D5 

4 040052 04 EDT4?: D €D47 
5 054114 EDT52: .WORD €ED52 
S 040056 054126 EDTS7: .WORD €D57 
8 040062 054152 EDT65 WORD €ED65 
9 040064 054162 EDT?71 WORD €D71 
10 054072 EDT74 WORD De 
11 040070 054172 EDT115 D €D115 
12 040072 054204 EDT130: .WORD £&D130 
13 040074 054172 EDT132: .WORD €D115 
‘3 040076 054220 EDT220: .WwORD £ED220 


er a ae 
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ERROR MESSAGE TABLE 









SEQ 0140 


1 040100 054224 EFT]: .WORD EF] 
2 040102 054207 EFT2: :WORD EF? 

3 040104 054230 EFTS: :WORD EF5 

4 040106 054232 EFTS7: WORD EF57 

5 040110 054224 EFT65: :WORD EFI 

6 040112 054224 EFT71: :WORD EFI 

7 040114 054227 EFT?4: WORD EF2 

8B 040116 054232 EFT115: :WORD EF57 

9 040120 054236 EFT130: :WORD F130 

0 040122 054232 EFT132: :WORD EFS7 

1 040126 054230 EFT220: :WORD EFS 


— SS ss SS SS SS 


CZRMQAO RMOS/3/ 
ERROR MESSAGE T 


R 
REG 


0574 
064 


OWODNAUSWN—OOONOUSE 
oO 
& 
NVWY 


RRLLLLLLLLLLLLLLP 


3 
-_ 
S 
LS 
N 


ia®) 
— 
R 
ant ond ond 
Ww 
Nm 
wi 


56 044251 
57 044326 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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L 


@NONEXISTENT DEVICE ‘NED'' (RMCS2,BIT 
Suation c CLEAR ‘'CLR'' (RMCS2,B1 


@DATA PARITY ERROR ' 
@PARITY TEST 'PAT'’ (RMCS2, BIT 04) a 
@MASSBUS CONTROL BUS PARITY ERROR ‘MCPE'' 2 
a(RMCS1, BIT 13) @ 
@ILLEGAL REGISTER ERROR "‘ILR'’ (RMER1, BIT 01) a 
@DIAGNOSTIC MODE ‘DMD'' (RMMR1, BIT 00) @ 
@MEDIUM ON LINE ‘MOL'' (RMDS, BIT 12) @ 
@MAINTENANCE UNIT READY 'MUR’’ (RMMR1, BIT 09) @ 
@MAINTENANCE WRITE PROTECT ‘MwP’’ (RMMR1, BIT 03) a 
@QWRITE LOCK ‘WRL'' (RMDS, BIT 11) @ 
@DEVICE CHECK 'DVC'’ (RMER2, BIT 07) a 
@MAINTENANCE DRIVE FAULT ‘MDF'’ (RMMR1, BIT 06) a 
@UNSAFE STATUS ‘UNS'’ (RMER1, BIT 14) @ 
@SEEK INCOMPLETE STATUS ‘‘SKI'' (RMER2, BIT 14) @ 
@MAINTENANCE SEEK ERROR ‘MSER'’ (RMMRI, BIT 07) @ 
@POSITIONING IN PROGRESS 'PIP'’ (RMDS, BIT 13) @ 
@MAINTENANCE ON CYLINDER ‘MOC’’ (RMMRI, BIT 08) @ 
OCK 'EBL™ (RMMR 13) a 


BL , BIT 

@DIAGNOSTIC END OF BLOCK *DEBL'* (RMMR1, BIT 13) a 
@LAST SECTOR STATUS ‘1S’* (RMMR1, BIT 02) a 

@LAST SECTOR/TRACK STATUS ‘LST’’ (RMMR1, BIT 01) a 
@SECTOR ADDRESS BITS OF @ 

@TRACK ADDRESS BITS OF @ 

UME VALID *VV"" (RMDS, BIT 06) @ 
aGO BIT (RMCS1, BIT 00) a 


ITS OF @ 
@LAS TRANSFERRED, ‘LBT'' (RMDS, BIT 10) a 
@COMPOSITE ERROR ‘ERR’ (RMDS, BIT 1 

@COMMAND SEQUENCER TEST BIT “TST’* (RMMR2, BIT 12) a 
@DRIVE READY STATUS DRY’ (RMDS, BIT 07) @ 
@CONTINUE ''CONT’’ (RMMR1, BIT 06) @ 
@INVALID COMMAND ERROR “IVC'' (RMER2, BIT 12) @ 
@LOSS OF SYSTEM CLOCK ERROR ‘LSC’' (RMER2, BIT 11) @ 
@OCCUPIED ‘OCC’’ (RMMR1, BIT 15) @ 

@ILLEGAL FUNCTION ‘'ILF” (RMER1, BIT 0) @ 
@OFFSET DIRECTION ‘OFD'’ (RMOF, BIT 07) @ 
@OFFSET MODE ‘OM’ (RMDS, BIT 60) a 
@RUN AND GO 'RG'’ (RMR) BIT 14) @ 
@INVALID ADDRESS ERROR “IAE‘' (RMER1, BIT 10) @ 
@ADDRESS OVERFLOW E " (RMERT, BIT 09) @ 
@REGISTER MODIFICATION REFUSED ERROR @ 

a’ RMR’ (RMERT 02) a 

@DRIVE REQUEST REQUIRED STATUS ‘DRQ'’ (RMDT, BIT 11) @ 
@PROGRAMMABLE STATUS ( BIT 09) @ 


@ 


@DRIVE PRESENT STATUS ‘DPR’ (RMDS, BIT 08) @ 
@PORT REQUEST FLOP ‘RQA,ROB'’ (RMMR2, BITS 15,14) a 
@ATTENTION ‘ATA’ (RMDS, “BIT 15) 

QuRITE LOCK, ERROR “WET (RMERI, BIT 11) a 


@INVALID COMMAND ERROR “IVC'* (RMER2, BIT 12) a 
@TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @ 


M11 
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ERROR MESSAGE SEQ 0142 
58 044402 1142S s111—s«d18 ASCIZ @LINES (RMMR2, BITS 10,11,13) @ 
29 0464460 123. «105101 EMS70: -ASCIZ @SEARCH ENABLE ESRC’ (RMMRT, BIT 11) @ 
61044506 117 120 105 EMS71: .ASCIZ @OPERATION IMCOMPLETE ERROR ‘OPI''(RMER1 BIT13) @ 
62 044565 104 111 123 EMS72: -ASCIZ @DISABLE SEARCH TIMEOUT 'DTO'’ (RMMR1 BIT 12) @ 
63 044642 104 122 111 EMS73: <ASCIZ @DRIVE TIMING ERROR 'DTE'(RMER1,BIT 12) @ 
64 064712 89-115, 107 Ss 117s EMS74: = {ASCIZ NTENANCE INDEX PULSE ‘MI''(RMMR1 BIT 2) @ 
65 044765 115 101 111 EMS75: -ASCIZ @MAINTENANCE, SECTOR PULSE 'MS''(RMMR] BIT 5) a 
66 045041 106 = 117, Ss 122s EMS76: © :ASCIZ @FORMAT BIT “FMT16'' (RMOF ,BIT12) 
67 045102 123 105 103 EMS77: -ASCIZ @SECTOR COMPARE 'MSC’'(RMMRI BIT 1) @ 
68 045145 120 122 117 EMS100: :ASCIZ @PROM STROBE 'WC'' (RMMRI BIT 5) a 
69 045205 115 107 111 EMS101: :ASCIZ @MAINTENANCE BIT CLOCK 'MCLK'* (RMMR1 BIT11) a 
70 045261 89114 117 117 EMS102: [ASCIZ @LOOKING FOR SYNC 'PLFS''(RMMRI,BITIO) @ 
71045327 «= 127, 122,-=Ss111:«EMS103: <ASCIZ @WRITE GATE ‘BB00'' (RMMR2 BITOS @ 
72 045367 = 9110 105 101 EMS104: [ASCIZ @HEADER SYNC PATTERN 
045414 110 105 107 EMS105: :ASCIZ @HEADER AREA ‘PHA’ 1 BIT 7) a 
74 045455 105 116 101 EMS106: :ASCIZ @ENABLE CRC OUT 'ECRC’’ (RMMR1 BIT 9) a 
75045522 110 105 107 EMS107: :ASCIZ @HEADERS 
76 045532 = 122 105 101 EMS110: [ASCIZ @READ GATE 'BB01'(RMMR2 BIT 1) a 
77 045571 +«=9110 105 101 EMS111: :ASCIZ @HEADER ERROR @ 
78 045607 104 101 124 EMS112: [ASCIZ @DATA TIMING SEQUENCER OUTPUT @ 
79 045645 = 104 = 101. «S124 EMS113: [ASCIZ @DATA AREA "PDA" (RMMRI BIT 8) a 
80 045704 105 116 101 EMS114: [ASCIZ @ENABLE ECC OUT 'EECC’’ (RMMRI, BIT 4) a 
81 045752 105 103 103 EMS115: :ASCIZ @ECC PATTERN @ 
82 045767 105 103 103 EMS116: -ASCIZ @ECC ERROR @ 
83 046002 104 (111 123 EMS250: :ASCIZ @DISK ADDRESS REGISTER (RMDA) @ 
84 0460460 103 117 116 EMS251: .ASCIZ @CONTROL STATUS REGISTER #1 (RMCS1) a 
85 046104 105 122 122 EMS252: ‘ASCIZ @ERROR REGISTER #1 (RMER1) @ 
046137 105 122 122 EMS253: [ASCIZ @ERROR REGISTER #2 (RMER2) @ 
87 046172 115 101 111 EMS254: [ASCIZ @MAINTENANCE REGISTER #1 (RMMR1) @ 
046233 104 105 123 EMS255: :ASCIZ @DESIRED CYLINDER REGISTER (RMDC) @ 
046275 117 106 106 EMS256: ASCIZ @OFFSET REGISTER (RMOF) @ 
90 046325 104 122 111 EMS257: [ASCIZ @DRIVE TYPE REGISTER (RMDT) @ 
91 066361 110 117 114 EMS260: °ASCIZ @HOLDING REGISTER (RMHR) 
92 046412 123 105 122 EMS261: °ASCIZ @SERIAL NUMBER REGISTER (RMSN) @ 
95 046451 = 101 124124 EMS262: -ASCIZ @ATTENTION SUMMARY REGISTER (RMAS) @ 
95 046514 103 101 = 116 EMS300: .ASCIZ @CANNOT CLEAR @ 
96 046532 103 101 116 EMS301: [ASCIZ @CANNOT WRITE/READ @ 
97 046555 101 116 131 EMS302: [ASCIZ @ANY DEVICE REGISTER @ 
98 046602 127 111 124 EMS303: [ASCIZ @WITHOUT @ 
99 046613 105 += 122 «= «122 «EMS304: <ASCIZ @ERROR @ 
100 046622 101 040 117 EMS306: °ASCIZ @A ONE FROM @ 
101 125 123 111 EMS307: .ASCIZ @USING MASSBUS INITIALIZE, I.E.. a 
102 046677, = 101.«2Ss«040»=S ss: 132-«EMS310: [ASCIZ @A ZERO 
103 046714 105 126 105 EMS311: °ASCIZ @EVERY DEVICE REGISTER BIT POSITION a 
10% Q46760 = 124110108 EMS312: -ASCIZ THE FOLLOWING BITS ARE STUCK 
105 047016 101 040 123 EMS313: [ASCIZ @A SHIFTING ONE BIT FR 
106 047047 101 120 120 EMS314: [ASCIZ @APPEARS STUCK AT ZERO a 
107 047076 101 120 120 EMS315: :ASCIZ ARS STUCK AT ONE @ 
108 047124 122 105 107 EMS316: [ASCIZ @REGISTER SELECT a 
109 047145 061 «= 040 3S: O50- EMS317: [ASCIZ @1 (1,2,4.8,16) @ 
110 047165 062 0460 050 EMS320: [ASCIZ a2 (1:2.4.8.16) @ 
111 047205 064 040 050 EMS321: [ASCIZ a4 (1:2.4-8.16) @ 
112 047225 070 040 050 EMS322: [ASCIZ @8 (1.2.4.8.16) @ 
113 047265 = =9101 «2114 «114 EMS323: ASCIZ @ALL ONES FROM @ 
114 067264 101 114 114 EMS324: [ASCIZ @ALL ZEROS FROM @ 
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115 047304 101 124 040 EMS325: .ASCIZ @AT ZERO @ 

116 047315 101 124 040 EMS326: .ASCIZ @AT ONE @ 

117 047325 054 040 117 EMS327: .ASCIZ @, OR @ 

118 047333 015 012 103 EMS330: .ASCIZ <CR><LF>@CS MBA CLRL @ 

119 047352 103 101 116 EMS331: .ASCIZ @CANNOT READ ZEROS FROM @ 

120 047402 111 123 040 EMS332: .ASCIZ @I1S INCORRECT @ 

121 047420 111 123 040 EMS335: .ASCIZ @IS NOT SET a 

122 0474 111 123 040 EMS334: .ASCIZ @IS SET a 

123 047444 123 110 117 EMS335: .ASCIZ @SHOULD NOT BE SET @ 

124 047467 123 110 117 336: .ASCIZ @SHOULD BE SET a 

125 0475 103 101 116 EMS337: .ASCIZ @CANNOT SET @ 

126 047522 102 105 103 EMS340: .ASCIZ @BECAUSE a 

127 067533 125 123 111 EMS341: .ASCIZ @USING @ 

128 047542 104 125 122 EMS342: .ASCIZ @DURING REGISTER TRANSFER @ 

129 047574 125 116 105 €EMS3435: .ASCIZ @UNEXPECTED @ 

130 047610 102 125 123 EMS344: .ASCIZ @BUS TIMEOUT (04 TRAP) a 

131 047637 102 131 040 EMS345: .ASCIZ @BY REGISTER TRANSFER @ 

132 047665 103 101 116 EMS346: .ASCIZ @CANNOT RESET @ 

133 047703 127 111 124 EMS347: .ASCIZ @WITHOUT SETTING @ 

134 047724 102 125 124 EMS350: .ASCIZ @BUT @ 

135 047731 127 101 123 EMS351: .ASCIZ @WAS RESET BY @ 

136 047747 127 101 123 EMS352: .ASCIZ @WAS SET BY @ 

137 04776 111 116 040 EMS353: CI1Z @IN DIAGNOSTIC MODE @ 

138 05 111 123 040 EMS354: ASCIZ @IS INCORRECT ACCORDING TO @ 

139 050042 103 101 116 EMS355: .ASCIZ @CANNOT INCREMENT @ 

140 05 127 101 123 EMS356: .ASCIZ NOT SET BY @ 

141 0501 127 101 123 EMS357: .ASCIZ @WAS NOT RESET BY @ 

142 050126 060 040 124 EMS360: .ASCIZ TO 1 TRANSITION OF @ 

143 050154 061 040 124 EMS361: .ASCIZ @1 TO 0 TRANSITION OF @ 
050202 111 123 040 EMS362: .ASCIZ @IS INCONSISTENT @ 

145 050223 103 101 116 EMS363: .ASCIZ @CANNOT READ @ 

146 050240 124 105 123 EMS364: .ASCIZ @TEST PATTERN IN @ 

147 050261 101 116 104 EMS365: .ASCIZ @AND a 

148 050266 103 101 116 EMS366: .ASCIZ @CANNOT INITIALIZE @ 

149 050311 124 110 105 EMS367: .ASCIZ @THE COMMAND SEQUENCER HAS BEEN CLOCKED @ 

150 050361 122 105 123 EMS370: .ASCIZ @RESET EARLY @ 

151 050376 104 111 104 EMS371: .ASCIZ @DID NOT RESET ON TIME @ 

152 050425 104 125 122 EMS372: .ASCIZ @DURING COMMAND EXECUTION @ 

153 050457 124 117 040 EMS373: .ASCIZ aT0 @ 

154 050463 127 111 124 EMS374: .ASCIZ @WITH ANY COMBINATION OF @ 

155 050514 102 131 040 EMS375: .ASCIZ @BY READING @ 

156 0505 102 131 040 EMS376: .ASCIZ @BY WRITING a ’ 

157 050544 127 101 123 EMS377: .ASCIZ @WAS SET @ 

158 050555 127 101 123 EMS400: .ASCIZ @WAS NOT SET @ 

159. 050572 104 111 104 EMS401: .ASCIZ @DID NOT SET @ 

160 050607 127 110 111 EMS402: .ASCIZ @WHILE @ 

161 050616 103 117 115 EMS403: .ASCIZ @COMMAND SEQUENCER DID NOT ABORT @ 

162 050657 127 101 123 404: .ASCIZ @WAS NOT RESET @ 

163 050676 104 125 122 EMS405: .ASCIZ @DURING 

164 050706 127 101 123 406: .ASCIZ @WAS RESET @ 

165 050721 123 105 101 EMS407: .ASCIZ @SEARCH TIMEOUT @ 

166 050741 101 106 124 EMS410: .ASCIZ @AFTER @ 

167 050750 127 101 123 EMS411: .ASCIZ @WAS CHANGED @ 

168 050765 123 105 124 EMS412: .ASCIZ @SET EARLY @ 

169 051 111 116 103 EMS413: .ASCIZ @INCORRECT @ 

170 051013 103 101 116 EMS414: .ASCIZ @CANNOT DETECT @ 

171 051032 127 101 123 415: .ASCIZ @WAS SIMULATED @ 
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@DURING READ a 
@INCORRECT DATA TRANSFERRED TO MEMORY @ 
DEVICE IS NONEXISTENT,@<CR><LF> 
S SWITCHED TO OTHER PORT@<CR><LF> 
EIVER ENABLE SWITCH IS OF F@<CR><LF> 
R><LF> 
- M5922 OR M5923 
CR><LF> 
1) E, M8685/M7685 ,a<CR><LF> 
DEVICE IS SWITC 

ICE IS NO 
DEVICE IS SWITCHED T 
* ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF> 

OBABLE FAULT(S) :@<CR><LF> 
(NOT INCLUDING CABLES OR CONNECTORS) @<CR><LF> 
@READ IN PRESET COMMAND @ 
@0F+ SET COMMAND a 
@RETURN TO CENTER CENTER COMMAND 2 
SE COMMAND @ 

@RE CAL IBRATE —ome a 


OMMAND 
@SEARCH COMMAND @ 
@DATA COMMAND @ 


E, M7686, 
MASSBUS TRANSCEIVER 
cS MODULE, M7684 


@<CR><LF> 


HED TO A/B PORT POSITION@<CR><LF> 
AN RMOS . OR@<CR><LF> 
E PORT POSITION, OR@<CR><LF> 
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-ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
-ASCII 

C12 

CII 

C12 

CII 

C12 

CII 

C12 


C12 
MACRO VO3.01 11-APR=80 14:12:35 PAGE 39 


@EXPCTD RECEVD 
@STATUS STATUS 


@ BASE@<CRLF> 
@ADRESS@ 


RESULT ADR 
@ACTUAL REGSTR@<CRLF > 
@RESULT ADRESS@ 


REGSTR@<CRLF > 
ADRESS@ 


S 
@EXPCTD —_STUCK@<CRLF> 
ULT BIT(Sa 


@EXPCTD RECEVD@ 
SE COND 
@EXPCTD RECEVD 
@FIRST FIRST 
@SNGPRT T 


DULPR 
@DRVTYP__DRVTYP 
@ EXPECTED ECC 
@EXPCTD RECEVD 


CRC@ 
EXPCTD RECEVD@<CRLF> 
SECOND SECOND@ 
RECEVD DORVTYP@<CRLF> 
REGADR@ 


REGSTR@ 
TEST@<CRLF> 
PATTRN@ 
REGSTR _TEST@<CRLF> 
S PATTRNA@ 


REGSTR TEST OFFSET@<CRLF> 
ADRESS PATTRN REGSTR@ 


REGSTR OFF SET@<CRLF> 
REGSTR 


EGSTRa@ 
REGSTR OFF SET@<CRLF> 
REGSTR@ 


ADRESS 
REGSTR RMER1 RMER2@<CRLF> 
ADRESS PATTRN PATTRNA@ 


REGSTR FUNCTION@<CRLF > 
ODE@ 


CODE 
STATUS _TEST@<CRLF> 
ESS REGSTRA@ 
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TABL 


ERROR MESSA E 
54062 001140 
054072 001136 
054076 001140 
4 054104 001174 
5 054114 001174 
6 054126 001174 
7 054140 001200 
8 054152 001140 
9 0541 001140 
10 054172 001140 
11 054 001140 
ig 0 001142 
14 05 000 
15 0542 000 
16 054 000 
17 054232 000 
18 054 000 
19 
20 
21 054244 
22 054244 
23 055250 
24 054244 
26 054244 
27 054244 200 
28 054245 200 
29 054246 114 
30 054 055 
31 054302 124 
32 05432 124 
33 054340 124 
34 0543 124 
35 054426 124 
36 054 124 
37 054510 124 
38 054533 124 
39 05456 124 
40 054615 124 
41 054636 124 
2 054665 124 
43 054712 124 
44 054753 124 
45 055003 124 
46 055041 124 
47 055072 124 
48 05 124 
49 05 124 
50 05 124 
51 05 200 
52 05 117 
53 05 055 
54 05 123 
55 055 055 
56 05 040 
57 05 040 
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001136 ED1: WORD 5 +a , SBDDAT , SBDADR 0 





ED2:  . WORD ADR 
000000 EDS: .WORD $GDDAT.$8DDAT,0 
001200 £047: [WORD $TMPO, StRPh $TMP 
001176 EDS2: .WORD $TMPO.BUFFER STeete ,BUFFER+2,0 
001142 ED57: .WORD $TMPO. on 1, $8DDAT . $8DADR,0 
001174 ED61: .WORD $TMP2.$TMP3.$TMPO,$TMP1,0 
001174 £D65:  .WORD SGDDAT SBDDAT ,$TMPO,0 
001444 £D71: .WORD $GDDA * SEDDAT x 
001136 ED115: .WORD $GDDAT.$B8DDAT.$8DADR, 
001136 £D130: .WORD $GDDAT.$BDDAT.$BDADR. SIMO. $TMP1,0 
ED220: <:WORD $B8DDAT.$BDADR 
000 EF1:  .BYTE 0.0.0 
EF2: BYTE 
EFS: :BYTE 0,0 
000 €EF57: ‘BYTE 0.0.0.0 
000 EF130: -BYTE 0-0:0:0.0 
EVEN 
BUFFER 
BUF .BLKW 258. 
BUFTWO: :BLKW 258. 
HELP: 
ASCII pn phe 
ASCII <CRL 
123. ZASCII acist oF TESTS@<CRLF> 
055 [ASCII <==-a<CRLF 
011 :ASCII atl TRANSFER TESTA<cALF> 
011 [ASCII aT CTOD TEST@<CRLF> 
011 :ASCII aT MASSBUS INITIALIZE TEST@<CRLF> 
011 ZASCII aT4 CLEAR STUCK ACTIVE TESTa<CRLF> 
011 [ASCII aT5 TRISTATE TRANSFER TEST@<CRLF> 
011 ASCII até REGISTER SELECT TESTa<CRLF> 
011 ZASCII aT? DRIVE TYPE TEST@<CRLF> 
060 ASCII aT10 DEVICE AVAILABLE TESTa<CRLF> 
061 ASCII @711 SEARCH TIMEOUT TEST@<CRLF> 
062 <ASCII aT SET DTE TESTa<CRL 
063 <ASCII aT FORMAT CHANGE TeSTaccaur> 
064 ASCII @714 PROM STROBE TESTa<CRL 
065 :ASCII @715 SYNC WORD COUNT IwueiT TesTa<cRLF> 
066 .ASCII @716 SYNC DETECTION TESTa< 
067 .ASCII @717 ABORT SYNC DETECTION TESTaccRLF> 
060 .ASCII @720 SYNC GENERATION TESTa<CRLF> 
061 .ASCII @T21 WRITE HEADER TEST@<CRLF> 
062 “ASCII aT2 COMPARE TEST a<CRLF> 
063 ASCII aT2 RATION TESTa<CRLF> 
064 .ASCII a724 ECC DETECTION TESTa@<CRLF> 
"ASCII <CRLF> 
105 :ASCII ERATIONAL SWITCH SETTINGS@<CRLF > 
111 “ASCII aSWITCH USEaCCRLF> 
055 ‘ASCI] Qeecnne eewnwnnwenewnnnnennng<(RLF> 
061 cASCII @ 15 HALT ON ERROR@<CRLF> 
061 :ASCI] a 14 LOOP ON TESTa<CRLF> 


SEQ 0146 





ERROR MESSAGE T 


58 055451 040 040 061 .ASCII 
59 0555 040 040 061 .ASCII 
| 60 055515 040 040 061 .ASCII 
61 9555 040 040 061 .ASCII 
62 055572 040 040 140 .ASCII 
63 055616 040 040 040 CI! 
64 055655 040 040 040 .ASCII 
65 055671 040 040 -ASCII 
66 055704 040 040 040 .ASCII 
67 055717 040 040 040 .ASCII 
68 055732 040 040 040 .ASCII 
69 055 040 040 040 .ASCII 
055756 040 040 040 .ASCII 

71 055770 040 040 040 .ASCIZ 


200 
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wei ay H ERROR TYPEOUTS@<CRLF > 


a<Cri 
tNNIBIT Ai natki ap mma 
Ww LL ON ERROR@<CRL 

1 O0P ON ERRORSCCRLE 

LOOP ON TEST IN SuRC?: O>a@<CRLF> 
T™N128a<CRLF > 

TN64@<CRLF > 

TN32a@<CRLF > 

TN16@<CRLF > 


TN2@<CRLF > 
TN1@<CRLF> 


SEQ 0147 
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SYMBOL TABLE SEQ 0148 
| ABASE = 176700 AVECT1= 120254 CNSLOO 031176 ED1 054062 EH220 054024 
| ACDW1 = 000000 AVECT2= 000000 CNSLO1 031231 ED115 = 054172 EHS 052410 
ACDW2 = 000000 Al6é = =: 000400 CNSLO 1247 ED130 054204 EH47 052474 
ACPUOP= 000000 Al7__ = 001000 CNSLOS 031311 De 054072 EHS 052417 
ADDWO = 000000 BADTMO 002436 CNSLO4 031331 ED220 054220 EHS2 052522 
ADDW1 = 000000 BAI = 000010 CNSLOS 031365 ED4 054104 EH57 052620 
ADDW10= 000000 = 1 CNSLO6 031377 EDS 054076 EH61 052716 
ADDW11= 000000 8801 = 000002 CNSLO? 031430 EDS2 054114 EH65 05°75 
ADDW12= 000000 BB02 = CNSLO8 031573 ED57 054126 H7 052455 
ADDW13= 000000 8B03 = 000010 CNSLO9 031574 ED61 054140 EH71 053030 
ADDW14= 000000 BB04 = 000020 CNTCLR 023334 D65 054152 EMS1 040126 
ADDW15= 000000 8805 = 0 C 031107 ED71 054162 EMS10 040531 
ADDW2 = 000000 BB06 = 000100 CONT = 000100 EECC = 000020 EMS1 045145 
ADDW3 = 000000 BB07 = 000200 CR = 000015 EFT 040100 EMS101 045205 
ADDW4 = 000000 = 000400 CRLF = 000200 EFT115 040116 EMS102 045261 
ADDWS = 000000 = 001000 CYLMSK= 001777 EFT130 040120 EMS103 045327 
ADDW6 = 000000 BITO = 000001 DBCK = 100000 EFT132 040122 EMS1 045367 
ADDW7 = 000000 BITOO = 000001 DBEN = 040000 EFT2 040102 EMS105 045414 
ADDW8 = 000000 B1ITO1 = 000002 DBL = = 002000 EFT220 040124 EMS106 045455 
ADDW9 = 000000 BITO2 = 000004 (kK = EFTS 040104 EMS107 045522 
ADEVCT= 000000 BITO3 = 000010 DDISP = 177570 EFTS7 0106 EMSi1_ 040574 
ADEVM = 000000 BIT04 = 000020 DEBL = EFT65 040110 EMS110 045532 
ADR = 000001 BITOS = 000049 DISPLA 001156 EFT71 040112 EMS111 045571 
AENV. = 000000 BITO06 = 000100 DISPRE 000174 EFT74 040114 EMS112 045607 
AENVM = 000000 B1T07 = 000200 DLT = 100000 EF1 054224 EMS1135 045645 
AFATAL= 000000 B1IT08 = 000400 DMD = 000001 EF130 054236 EMS114 045704 
ALL 031076 BITO9 = 001000 DPE = 000010 EF2 054227 EMS115 045752 
= 000000 BIT! = 000002 DPEHI = 040000 EF5 054230 EMS116 045767 
AMADR2= 000000 B1T10 = 002000 DPELO = 020000 EF57 054232 EMS12 040665 
3= 000000 BIT11 = 004000 DPR = 000400 EHT 037730 EMS13 0407..3 
= 000000 BIT12 = 010000 DRQ = 004000 EHT115 04 EMS14 041012 
AMAMS1= 000000 B1IT13 = 020000 DRVCLR= 000010 EHT130 040010 EMS15 041057 
AMAMS2= 000000 BIT14 = 040000 DRY = 000200 EHT132 04CO EMS16 041135 
AMAMS3= 000000 BIT15 = 100000 DSWR = 177570 EHT142 040020 EMS17 =041216 
= 000000 BIT2 = 000004 DTE = 010000 EHT145 040024 EMS2 040177 
AMSGAD= 000000 BITS = 000010 DTO = 010000 EHT150 040030 E 041257 
AMSGLG= 000000 BIT4 = 000020 DULPRT= 024024 T2 037734 041323 
SGTY= 000000 BITS = 000040 DVA = 004000 EHT213 040034 EMS22 041402 
AMTYP1= 000000 BIT6 = 000100 DvC = 000200 EHT220 04 041447 
AMTYP2= 000000 BIT? = 000200 EBL = 020000 EHT47 037750 EMS24 = 041525 
AMTYP3= 000000 BIT8 = 000400 ECH = 000100 EHTS 037740 EMS25 041604 
AMTYP4= 000000 IT9 = 001000 ECI_ = 004000 EHTS 037754 EMS250 046002 
AOE = 001000 BOT 022412 ECRC = 001000 EHTS 037760 EMS251 046040 
APASS = 000000 BOTFLG 022414 DT1 040044 EHT61 7 EMS252 046104 
APE = 100000 BPTVEC= 14 EDT115 040070 EHT65 037770 EMS255 046137 
= 000000 BSE = EDT130 040072 EHT7 037744 EMS254 046172 
APTCSU= 000040 BUFFER 054244 EDT132 040074 EHT71 0377 EMS255 046235 
APTENV= 000001 BUFONE 054244 DT2 040046 EHT74 EMS256 
APTSIZ= 000200 BUFTWO 055250 EDT220 040076 H 05232 EMS257 046525 
APTSPO= 000100 cc = EDT47 040052 EH115 053105 EMS26 = 041662 
G= 000000 CH = EDTS 040050 EH130 053202 EMS260 046361 
ATA _ = 100000 CHRCNT 022415 EDTS 040054 EH132 053520 EMS261 046412 
ATESTN= 000000 CKSWR = 10441 EDT5 040056 EH142 3= 0053416 046451 
TNMSK= 000377 CLKSNC 024572 EDT61 040060 EH145 053514 EMS27 041741 
ATNTBL 032014 CLOCK 001532 EDT65 040062 EH150 053631 EMS 040246 
AUNIT = CLR = 000040 EDT71 040064 He B2ge0s EMS3O0 = 042 
AU = CMNSTA 005070 EDT74 040066 EH215 05572 EMS300 046514 
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SEQ 0149 
EMS301 046532 EMS365 050261 EMS56 38043513 EMT13 032264 EMT211 036060 
EMS302 046555 EMS366 050266 EMSS? 043606 EMT130 034510 Halt 036076 
EMS303 04 4 EMS367 050311 EMS6 040414 EMT131 034526 EMT215 036110 
EMS304 04661 MS37_ 042367 EMS60_ 043672 EMT132 034544 EMT214 036140 
EMS 306 2 EMS370 050361 EMS600 052071 EMT13 34564 EMT215 036152 
EMS307 046636 EMS371 050376 EMS601 052121 EMT134 034604 EMT216 036172 
1 2065 EMS372 050425 EMS602 052141 EMT135 034620 EMT217 036206 
EMS310 6677 EMS373 050457 EMS60 bass0e MT136 034636 EMT22) 8032436 
EMS311 046714 MS374 05046 EMS 05222 EMT137 034650 EMT220 036222 
EMS312 0467 EMS375 050514 EMS605 052250 T14 = 032302 EMT221 036240 
EMS313 047016 050530 EMS606 052266 EMT140 EMT222 036256 
EMS314 EMS377 050544 EMS607 052306 EMT141 06 EMT223 036274 
EMS315 047076 EMSS 040313 EMS61 043744 EMT142 034722 EMT224 036312 
EMS316 047124 EMS40 8 04 EMS62 «044017 EMT143 034740 EMT225 036332 
EMS317 047145 050555 EMS63 044100 EMT144 034754 MT226 036354 
EMS401 050572 EMS64 044140 EMT145 034776 EMT227 036372 
MS 047165 EMS402 EMS65 044210 EMT146 035020 EMT 032462 
EMS321 047205 EMS403 050616 EMS66 4251 EMT147 EMT230 
EMS322 047225 EMS404 050657 EMS67 044326 EMT15 032320 EMT231 036426 
EMS323 047245 EMS405 050676 EMS7 040460 EMT150 035050 EMT232 036442 
EMS324 MS406 050706 EMS70 044440 EMT151 035072 MT233 0 
EMS325 7 EMS407 050721 EMS71 044506 EMT152 035104 34 036506 
EMS 047315 EMS41 2 EMS72 044565 EMT153 035120 EMT235 036534 
EMS327 047325 EMS410 050741 EMS73 4642 EMT154 035140 EMT236 036554 
EMS33_ 042216 EMS411 050750 EMS74 044712 EMT155 035160 EM1237 
E 047333 EMS412 050765 EMS75 044765 EMT156 035176 032506 
EMS331 047352 EMS413 051 EMS76 5041 EMT157 035220 EMT240 
EMS 047402 EMS414 051013 EMS77 5102 EMT16 36 EMT241 036652 
EMS333 047420 EMS415 051032 EMTVEC= 3 EMT160 035236 EMT242 0366 
E 7434 EMS416 051051 11 032024 EMT161 035266 EMT243 036722 
EMS335 047444 EMS417 051062 EMT10 032212 EMT162 035304 EMT244 036746 
7467 EMS42 042545 EMT100 033662 EMT163 035322 EMT245 
EMS337 7506 EMS420 051100 EMT101 033702 EMT164 03534 EMT246 00 
042246 EMS421 051113 EMT102 033722 EMT165 035 EMT247 037026 
E 047522 051130 EMT103 34 EMT166 035412 EMT25 032532 
EMS341 047535 EMS43 042627 EMT104 033760 EMT167 035432 EMT250 037044 
EMS342 047542 EMS44 042700 EMT105 EMT17 9032354 EMT251 037070 
EMS343 047574 EMS45 = 042741 034020 EMT170 035454 EMT252 037114 
EMS344 047610 EMS46 043016 EMT107 EMT171 0354 EMT253 037140 
EMS345 047637 EMS47 043100 EMT11_ 032230 EMT172 035502 EMT254 037156 
EMS 7665 040344 EMT110 EMT173 035520 EMT255 037174 
347 047703 EMS5O. 043140 EMT111 EMT174 035542 EMT256 037220 
EMS35 042275 EMS5OO 051176 paris 034126 EMT175 035570 EMT257 36 
EMS350 047724 EMS501 051336 113 034146 EMT176 035606 EMT26 =. 032552 
047731 EMS502 051363 EMT114 034172 EMT177 035624 037262 
EMS352 047747 EMS503 051433 EMT115 034214 T2 032032 EMT261 
353 047763 EMS5 051460 EMT116 034240 EMT20 032372 EMT262 037332 
EMS354 050007 EMS505 051513 EMT117 4260 T200 03564 EMT2635 037350 
EMS355 050042 EMS506 051566 EMT12 032246 EMT201 035660 EMT 264 
050064 EMS507 051627 EMT120 300 calf 0356 EMT265 037412 
EMS357 050104 EMS51_ 043207 EMT121 034324 EMT203 035714 EMT? 
E 042337 EMS510 051717 EMT122 034344 T204 0357 EMT267 037446 
EMS360 050126 EMS511 051772 EMT123 034364 EMT205 035756 EMT2 032604 
EMS361 050154 EMS52 043256 EMT124 034410 EMT206 035776 EMT270 037462 
EMS362 050202 EMS53 = 043317 EMT125 034426 EMT207 036026 EMT271 037506 
EMS363 050223 EMS54 043360 EMT126 034446 EMT21 032414 EMT272 037532 
050240 EMS55 043435 EMT127 034464 EMT210 036042 EMT275 037550 





-————— 
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SYMBOL TABLE 


EMT274 


037566 
037604 
037624 
037642 

32060 


RTYO4 022451 
Favor 022454 
FER = 000020 
FMT16 = 010000 
FNCDTB 031714 
FNCMSK= 000077 
FO = 000002 
Fl = 000004 
F = 000010 
F3 = 000020 
F4 = 000040 
—_ 001332 
GTSWR = 104407 
HCE = 00 
HCI = 002000 
HCRC = 


IE = 000100 
ILF__ = 000001 
ILFO2 = 000002 
ILF24 = 000024 
ILF26 = 000026 
ILF30 = 000030 
ILF32 = 000032 
ILF34 = 000034 
ILF 36 = 000036 
ILF40 = 000040 
ILF42 = 000042 
ILF44 = 000064 
ILF46 = 000046 
ILF54 = 000054 
ILF56 = 000056 
ILF64 = 000064 
ILF66 = 000066 
ILF74 = 000074 
ILF76 = 000076 
ILR = 000002 
ILRGSO= 000050 
ILRGS2= 000052 
ILRGS4= 000054 
ILRGS6= 000056 
LRG6O= 000060 
ILRG62= 000062 
ILRG64= 000064 
ILRG66= 000066 
ILRG70= 000070 
ILRG72= 000072 


ILRG76= 000076 
IOTVEC= 000020 
IPCKO = 000001 
IPCK1 = 000002 
eexe = 000004 
IPCKS = 000010 
IR = 000100 
IvC = 010000 
LBC) = =: 002000 
LBT = 002000 
LCLOCK 022756 
+ pe n0e8 
oe 031637 
LSC = 004000 
LST = 000002 
LSTOP 023070 
LSTRK 001330 
MCLK = 004000 
MCPE = 020000 
MDF = 000100 
MDPE = 000400 
MI = 000004 
MOC = 000400 
MOH = 020000 
MOL = 010000 
MRD = 002000 
— 051401 
MSC = 000002 
MSDRVS 031615 
MSE = 100000 
ER = 000200 
MSGDRV 031631 
MSHELP 031112 
= 001000 

= 000010 

= 000010 

MXF_ = 001000 
NDTMSK= 115760 
D = 010000 
NEM = 004000 


NOP 000000 
NOTAVL 031674 
NOTPRS 031657 
NSA 00000 


=1 

= 100000 
OF = 000200 
OFF SET= 000014 
OM = 000001 
OPE = 020000 
OPI = 020000 
OR = 00 
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PAR = 000010 
PAT = 000020 
PCLOCK 022740 
PCOUNT 023026 
PDA = 000400 
PGE = 004 $60 
PGM == 001 
PHA = 000200 
PIP = 020000 
PIRQ = 177772 
PIRQVE= 000240 
PLCLK 022764 
PLFS = 002 
PLSTP 023074 
PRO = 00 
PR1 = 00004 
PR2 = 0001 
PRS = 000140 
PR4 = 000200 
PRS = 000240 
PR6 = 000300 
PR? = 000340 
PS = 177776 
PSEL_ = 002000 
PSTOP 023062 
PSW == 177776 
PUTBUF 001406 
PWRVEC= 000024 
QUES 031103 
RD = 000070 
RDCHR = 104411 
RDLIN = 104412 
RDOCT = 104413 
RDY = 000200 
READY 005242 
RECAL = 000006 
RESREG= 104415 
RESVEC= 000010 
REX = 010000 
RG = 040000 
RH = 000072 
RIP _= 000020 
RLEASE= 000012 
= 00001 
RMASI 001350 
RMASO 3001424 
RMBAE = 000050 
RMBAEI 001402 
RMBAEO 001456 
RMBAI 001336 
001412 
RMCS1 = 000000 
RMCS1I 001332 
RMCS10 001406 
wes = 000010 
RMCS2I1_ 001342 


= 52 
RMCS3I 001404 
8 te 001460 
RMDAI 001340 
RMDAO 3 001414 

= 000022 
RMDBI 001354 

001430 
RMDC_ = 000034 
RMDCI 001366 
RMDCO 3 001442 
RMDS_ = 000012 
RMDSI 001344 
RMDSO 001420 
RMDT = 000026 
RMDTI 001360 
RMDTO 001434 
RMEC1 = 000044 
RMEC1I 001376 
RMECIO 001452 
RMEC2 = 000046 
RMEC2I 001400 
RMEC20 001454 
RMER1 = 14 
RMER1I 001346 
tid Sonos 


R2 = 00004 
RMER2I 001374 
R20 1450 


00 
RMHR = 0000 
RMHRI 001370 
RMHRO 001444 
RMLA = 
RMLAI 001352 

0014 
RMMRII 001356 
RMMRIO 001432 
RMMR2I 001372 
RMMR 001446 
RMOF = 000032 
RMOFI 001364 
RMOFO 001440 
RMR = 000004 
RMSN = 000030 
RMSNI 001362 

001436 

= 000002 
RMWCI §=—001334 
RMWCO 001410 
= 100000 

ROB = 040000 
RTC =.000016 
R6 =%000006 
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SEQ 0151 

R7 =%000007 SWw8 = 000400 wC = 000040 SEOP 021356 $NULL_ 001170 
SADMSK= 000377 Sw9 = 001000 wCD = 000050 SEOPCT 021404 SNWTST= 1 
SAVREG= 104414 TADMSK= 177400 WCE = 040000 SEOSP_ 021320 SOCNT 025660 
SA1_ = 000001 TAG = 020000 WCEH] = 010000 SERFLG 001117 E 025662 
SA16 = 000020 TAGADR= 001114 WCELO = 004000 $E 001131 SOVER 026514 
SA2 = 000002 TAP) = 040000 WCF = 000040 SERROR 026602 $SPASS 1230 
SAG = TAl = 00 WCH = 000052 SERRPC 001132 SPASTM 001106 
SAB = 000010 TA16 = 010000 wD = 000060 SERRTB 001536 R 030616 
Sc = 100000 TA2 == 001000 WH = 000062 SERTTL 001126 $SPSW 001524 
SCOPE = 000004 TAS == _- 002000 WLE = 004000 SESCAP 001210 030450 
SCTCMP 024302 TA8_ _= 004000 WRL = 004000 SET 001242 03 
SCTMSK= 003700 TBITVE= XNUDC = 176000 SETEND 001326 030522 
sco = 000100 TIME 001526 XNUER2= 001567 SFATAL 001224 001216 
SC1_ == 000200 TKVEC = 161577 SFFLG 031072 SRDCHR 02764 
SC2. = 000400 TPVEC = XSIZ 003756 SFILLC 001172 $RDOLIN 027732 
Sc3. = 001000 TRAPVE= 000034 XXDP 001326 SFILLS 001171 $RDOCT 030 
SC& = 002000 TRE = S$APTHD 001100 $GDADR 001134 $RDSZ = 
SEARCH= 000030 TRTVEC= 000014 SATYC 030652 $GDDAT 001140 SRESRE 025100 
SEEK = 000004 TST _ = 010000 SATY1 030626 $SGET42 021536 0224 
SETLFS 024410 TSTNMB 022406 SATY3 030634 SGTSWR 027370 SRMOS 022465 
SETOM 023232 TSTQUE 001462 SATY4 030644 $HD_ = 000000 5 022472 
SETVW 023110 TST1 005376 $AUTOB 001150 S$HIBTS 001100 S$RTNAD 021560 
SHUT 023362 TST10 010662 $BASE 001276 $HIOCT 030340 SSAVRE 025042 
SIZCLK 022500 TST11 =©010746 $BDADR 001136 SICNT 001120 SSAVR6 030614 
SKI___ = 040000 TST12 011216 SBDDAT 001142 SILLUP 030610 SSCOPE 026220 

T= 24 TST13.—— 011 $BELL 001212 SINTAG 001151 SSETUP= 000137 
STACK = 001100 TST14 =01213 IN 025210 001130 $STUP = 177777 
STANDA 004164 TST15 § =©012460 $CDW1 001302 $LF 001220 SSVLAD 026460 
START 002716 TST16 §=—013:130 $CDW2 001304 SLFLG_ 031071 SSVPC = 
STKLMT= 177774 TST17 = 013554 SCHARC 026214 $LLCSR 001516 $SWR_ = 167400 
STOP 001534 TST2 005706 SCKSWR 027500 $LLVEC 001520 SSWREG 001244 
SWR 001154 TST20 013776 SCMTAG 001114 $LPADR 001122 $s = 
SWREG 000176 TST21 014470 $CM3 = 000000 SLPCSB 001510 $SWO8T 026532 
SWwO = 000001 TST22 015456 M4 = SLPCSR 001506 STESTIN 00122 
SwOO = 1 TST23. 016724 SCNTLC 030176 SLPERR 001124 STIMES 001 
SwO1 = 000002 TST24 20114 SCNTLG 0210 SLPVEC 001512 STKB 001162 
SWwO2 = TST3 70 SCNTLU 030203 R1 001254 STKCNT 027002 
SwO3 = 000010 TST4 006240 $C 001250 SMADR2 001260 STKINT 027012 
SWO4 = 20 TSTS 370 SCRLF 00121 SMADRS 001264 STKQEN= 027011 
SwOS = 000040 TST6 454 SDBLK 025426 SMADR4 001270 STKQIN 027 
SWO6 = 000100 TST7 010524 $SDDWO 001306 SMAIL. 001222 $TKQOU 027 
SWO7 = 200 TYPBN = 104406 $DDW1 001310 SMAMS1 001252 $TKQSR 027010 
SwO8 = 000400 TYPDS = 104405 $DDW2 001312 SMAMS2 001256 $TKS 0011 
SwO9 = 001000 TYPE = 104401 $DDWS 001314 SMAMSS 001262 STKSRV 027 
Swi = 000002 TYPOC = 104402 $DD 001316 SMAMS4 001266 STMPO § 001174 
SW10 = 002000 TYPON = 104404 $DDWS 001320 SMBADR 001102 STMP1 001176 
SW11 = 004000 TYPOS = 104403 $DDW6 001322 SMFLG 031070 STMP2 001 
SW12 = 010000 UBUSQS 031143 $DDW7 = 001324 SMNEW 030226 STMPS 001202 
SW13 = 020000 UNS = 040000 SDEVCT 001 $35 SMS 001236 $T 001 
SW14 = 040000 UNTMSK= 000007 DEVM 001300 SMSGLG 001240 $TN = 000025 
SW15 = 100000 UPE = 020000 SDOAGN 021556 SMSGTY 001222 $TPB 0011 
SW2 = 000004 USE = 040000 $DTBL_ 025416 SMS 030215 STPFLG 001173 
SWS = 000010 UO = 000001 SENDAD 021546 SMTYP1 001253 TP 001164 
SW4 = 000020 U1 = 000002 SENDCT 021412 SMTYP2 001257 030342 
SWS = 000040 U2 = 000004 SENULL 021562 SMTYPS 001263 STRAP2 030402 
SW6 = 000100 vV = 000100 SENV 001 st¢ SMTYP4 001267 = 16 
SWw7 == 000200 WATCH 001530 SENVM 00124 SMXCNT 026530 STRPAD 030414 
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STSTM 001104 STYPE 025664 $TYPOS 025436 $SVECT2 001274 
STSTNM 001116 STYPEC 026076 SUNIT 001234 $XOFF = 000023 
STTYIN 030166 STYPEX 026216 SUNITM 001110 $XON_ = 000021 
STYPBN 025136 $TYPOC 025462 SUSWR 001246 $XTSTR 026232 
STYPDS 025212 STYPON 025476 $VECT1 001272 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 53600 WORDS ( 210 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 69 PAGES 


- ABS. 056254 
CZRMQA.BIC,CZRMQA/C=CZRMQA.DOC ,CZRMQA,SYSMAC/M 


SSGET4 


$$SWO8= 000025 
SOFILL 025661 


- $X 


001100 


SEQ 0152 


CROSS REFERENCE TABLE (CREF V0O1-05 ) 


$SATYC 23-12 23-128 

SAUTOB 8 5-0# 8-25* 8-62 10-27* 23-8 

SBASE 5-0# -72 9-56 5* 0-46 
12-556 12-603 12-673 12-748 12-808 

SBDADR 2-14% 8912-15" 12-35% 12-36% 


-O# 
SCHARC 23-5 = -23-SH# —-23-5e 23-5 23-5 


$CM3 5-0 
SCM4 5-0 5-0 5-0 5-0 5-0 
5-0# 5 


-0# 
SCMTAG 5-O# (8-19 8-19 8-19 8-19 
SCNTLC 23-8 23-8 23-8 23-8 23-84 


RLF 5-04 8-45 8-94 8-104 9-17 
14-130 cy? $32 23-5 23-5 


K 12 
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5-0 
8-19 


9-41 
23-7 


19=126* 
12-253* 


5-0 
8-19 


9-114 
7 


19=127* 
12-315* 


5-0 
8-19 


9-152 
23-7 


23-6 23-6 23-6 
23-6 23-6 23-6 
23-6 23-6 23-6 
23-64 23-64 23-64 
12-106 12-137 12-159 
12=;56 12-=31 12+277 
12-552" 12-578% 12-5798 
12-885" 12-910" 12-911 
12-<29% 12=<66* 12-<67* 


16-23* 16-24% 17-22% 
22-15* 22-16% 22-33* 


12=536* 12-548* 12-549« 
12 ® 


5-0 5-0 


13-20 14-22 
23-8 23-8 





12-704* 


33-10 


14-60 
23-8 


33-11 


SEQ 0153 
23-6 23-6 | 
23-6 23-6 
23-64 23-64 
23-64 23-64 


12-518 12-545 
18-9 


5-0" 5-0" 


14-109 = 14-122 










SODW6 
$ODW7 
SDEVCT 
SDEVM 


CZRMQAO RMOS/3/2 DSKLS TST 2 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


5~0# 
5-0# 
5~0# 


8-74 
13-204 


13-204 


2 
15-16* 


8-93* 


esr 


23-5 
23-5 


23-6 
23-6 


23-7 


23-7 
23-7 


23-12* 
es~5 


12-13% 
12-775* 
12-<30* 
12-A26* 
19=33* 


9-115* 


23-7 
23-5 


23-6 
23-6 


es~-7 


23-7 
23-7 


23-12* 


12-A80* 


23-6 
15-31* 


9-122* 


23-12 
23-12 


23-6 
23-6* 


23-7* 


23-7* 
23-7 


12-33* 
12-801* 
12-<86* 
12-A99« 
19=67* 


23-6* 
23-8* 


23-7* 
23-8 


15-30* 
23-6* 


23-6* 
15-32* 





9-149« 


23-12 


23-6* 


23-7* 


23-7 


1 
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9-150 


23-7 


12-209* 
12-883* 
12=>16* 
12-B70* 
19=128* 


23-8 


15-42* 
23-6* 


15-40* 


10-3 10-30 


23-7 23-7* 


12-254% 12-314* 
12-908* 12-944" 
12=>55* 12-237* 
12-C27* 12-C37* 
22-14% 22-32* 


15-43* 


15-41* 


12=551* 
12-993* 
12=?59« 
12-C47* 
33-1 


12-582* 
12=:32* 
12-a26* 
12-C48 
33-3 


SEQ 0154 
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4-988 4-988" 


nn 
w 
oe 
o 
So 
tus 
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ooo 


a eS 


SEQ 0158 
8-19 
12-603 
13-20 
23-6 
23-7 
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8-19 
12-673 
13-20 
23-6 
23-7 

5-0" 

4-685 
23-6 

5-0" 
12-9198 

5-O# 

5-0" 

9-4 





STKCNT 23-8 


STIMES 
STKB 


D 13 


23-54 


23-5 


STYPEY 23-5 


| 
| 
| 
| 


SEQ 0159 





| 


E 13 
E S=5 


— 


SEQ 0160 


12-1374 12-159 


12-1374 


12-5454 12-556 


12-1064 12-137 
12-5454 


MACRO VO03.01 11=APR=80 14:12:35 PAG 
9-107 
34 
18 
734 
394 


CROSS REFERENCE TABLE (CREF v01-05 ) 
23- 
23 
23- 
1 
5-0 
12-14 


-9918 
5-0 
5-0 
5-0 
5-0 
§-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 

12-14 


12-159# 12-326 


4-991 
4-930# 
4-929" 
4-9814 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 

-0 
-0 

12-1 

12-6034 
5-0 
5-0 
5-0 
9-121 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
5-0 
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SEQ 0161 


F 13 


5-0 


“CZRMOAO RM05/3/2 ak, tier 2 


|CROSS PT ERENCE TABLE 


|AMTYP1 5-0 5-0 
jAMTYP2 = 5-0 5-0 
AMTYPS 5-0 5-0 
AMTYP4 5 5 
4-776 4-787 
APASS 
4-9598 
APRIOR 5-0 
APTCSU 23-5 23-128 
APTENV 23-5 23-7 
APTSIZ 8-19 23-124 
APTSPO 23-5 23-12 
ASWREG 5 5 
ATA 4-756# 25-58 
25-75 25-76 


ATNTBL 8-74 8-93 
AUNIT 5-0 5 
AUSWR 5-0 5-0 
AVECT] 4-9824 5-0 
AVECT2 5-0 

BAD 8-34 8-21 
BAI 4-94 





25-77 


12-526 
4 


25-78 


23-128 


25-60 
25-80 


10-11 


12-:80 
12-A63 


12-528 
4-748 


25-81 


25-63 
25-83 


26-34 


12=<26 
12-A65 


12-531 


25-82 


25-64 


25-84 


12-<30 


12-533 
5 


25-85 


25-67 
25-87 


G 13 
MACRO VO3.01 11-APR~80 14:12:35 PAGE S-6 
v01=05 ) 


25-86 


25-68 
25-88 


25-69 


12-<99 
7 


25-70 


12-A41 
4 


25-71 


25-72 


25-73 


SEQ 0162 


25-74 


———— —E 


H 13 


SEQ 0163 





| 
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} 
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a so 
CZRMQAQ_RMOS/3/2 DSKLS TST 2 MACRO VO3.01 11-APR=80 14:12:35 PAGE S~7 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0164 








ei? 4~6884 8-68 
BITS 4-688 

BITS — 4-6884 

BOTADR 





TADR 14-76% 14-94% 14-97 14-112 = 14-1574 
BOTFLG 14-61" 14-104" 14-107 14-110" 14-1584 ; 
get cae 
12-562 = 12-633) = 12-688 = 12-814 12-925) 12-203) 12=:45 12-363) = 12-=37 12-767 12-769 12-784 9 33-5 33-5 


12-819 12-(58 33-224 


14-91% 14-95 14-100* 14-1118 14-1594 


* 15-27* 15-39% 19-88 20-14 


CNSLO8 9-22 9-35 9-50 9-144 24-204 


CNTCLR 12-7 12-28 12-75 12-108 = 12-116) 12=139) 12-162 = 12-213) 12-262) 12-365) 12-381 = 12-403) 12-425 12=442 
12-464 ifoee 12-495 12-547) = 12-610 = 12-679 = 12-750 = 16-14 18-84 19-19 


— 4-8634 12-80 


2x 
& 
' 
* 
3 
= 
—s 
fh 
i} 
Ww 
Co 
Oo 





809" 12-643 912-644 = 12-658 = 12-659 = 12-660 3=—- 112-663 64 12-698 12-699 12-700 12-701 
12-717 12-720, 12-721 12-722 = 12-725 12-726 = 12-831 = 12-832 12-858 §=— 12-859 «9-12-8746 =—:12-875. 12-892: 12-893 
12-903 12-904 19-106 = 19-107 = 19-113) 19-114 19-119 19-120 = 20-10 20-21 25 
26 20-27 20-28 21-10 21-11 21-18 21-19 
4-9644 
4-770# 4-787 12°46 
SP 4-6884 -0 8-1 
BL 4-810" 
SPLA -0# 8-19* 8-19  23-6* 23-7* 
PRE 4-9864 68-1 
4-9364# 


48228 = 4~B40H = 4-841 12-144 = 12-154 = 12-589 12-620 12-621 12-643 12-644 = 12-658 ~=— 12-659 12-660 =: 12-663 


ssi taal santana danshtetaatrined chines aie lata nani erent etdeal sialic ta snabaanbapengenliiiatiid 


nos 





a yey aD pe |} Reape ae | 
12-664 12-681 12-682 12-698 12-699 12-700 12-701 12-717 12=720 12721 12#722-12=725 «12-726 1275 
SEQ 01 
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EFS 30-3 30-11 33-168 


SEQ 0167 





CZRMQAO RMOS/3/2 DSKLS TST 2 
CROSS REFERENCE TABLE (CREF V01-05 ) 


EFS7 30-4 30-8 30-10 33-174 
EFT 7-3 7-49 7-52 7-55 
7-91 7-97 -100 7-103 
7-151 7-154 7-157 7-160 
EFT115 7-94 7-193 7-202 30-84 
EFT130 30-94 
EFT132 30-10% 
T2 7-6 30-24 
EFT220 30-114 
FTS 7-15 7-18 7-22 7-109 
EFTS7 7-127 7-142 7-148 30-44 
EFT65 30-5# 
EFT71 30-64 
EFT74 30-74 
EH1 28-1 32-14 
EH115 = 28-12 32-184 
EH130 28-13 32-204 
EH132 «28-14 32-224 
EH142 = 28-15 32-244 
EH145 28-16 32-264 
EH150 8628-17 32-284 
H2 28-2 2-3# 
EH213 28-18 32-304 
EH220 928-19 32-324 
EH3 28-11 32-44 
EH47 28-5 32-84 
EHS 28-3 32-54 
EHS2 28-6 32-94 
EHS7 28-7 32-114 
EH61 28-8 32-1 
EH65 28-9 32-144 
EH? 2 32-74 
EH71 28-10 32-164 
EHT1 7-3 7-49 f-52 7-55 
7-91 7-97 7-100 7-103 
7-154 7-157 7-160 7-196 
EHT115 7-94 28-124 
EHT130 28-134 
EHT132 28-144 
EHT142 28-154 
EHT145 28~164 
EHT150 867-193 7-202 28-17# 
EHT2 -6 28-24 
HT213 28-184 
HT220 28-194 
HT47 7-118 28-54 
HT5 7-15 7-18 28-34 
HT52 7-127 28-64 
HT57 7-142 §=28-7# 
HT61 7-148 28-84 
HT65 28-94 
HT7 7-22 7-109 928-44 
HT71 28-10# 
HT74 28-114 
MS1 27-3 ~4 31-14 
MS10 27-119 27-121 31-84 


7-58 7-61 7-64 7-70 
7-112 7-115 7-118 7-121 
7-196 7-199 7-208 7-211 
30-34 


7-58 7-61 7-64 7-70 
7-112 7-115 7-121 7-124 
7-199 7-208 7-211 7-214 


M 13 
MACRO V03.01 11-APR~80 14:12:35 PAGE S-9 


7-217 


7-76 
7-130 
7-217 


7-79 
7-133 


30-14 


7-79 
7-136 


7-82 
7-136 


7-82 
7-139 


7-85 


7-139 


7-85 
7-145 


SEQ 0168 


7-88 
7-145 


7-88 
7-151 | 





EMS10C 27-50 


27-54 


27-56 


27-62 


27-64 


27-67 


N 13 
27-69 27-104 31-684 





SEQ 0169 








B 14 
CZRMQAOQ RMOS/3/2 DSKLS TST 2 MACRO V03.01 11-APR=80 14:12:35 PAGE S-10 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0170 


31-694 
EMS102 27-58 27-60 27-62 27-64 27-70 31-704 
EMS104 27-65 27-67 27-74 31-724 


EMS106 

EMS107 27-82 27-84 27-88 31-754 
EMS1 

EMS1135 27-94 27-06 31-794 


EMS13) 27-126) 27=128 = 27-130) 27-132) 31-124 
EMS1S 27-134 27-138 = 2h7-197 =. 27-318 )=— 27-320) 27-337 = 27-339 27-355 = 27-371 = 27-391 = 31-144 


3 27-8 27-177 = 27-201) 27-229) 27-233) 27-238 = 27-249 39 27-330) 27-335 = 31-24 
EMS21) 27-148 = 27-150) 27-154 27-156) 27-158 = 27-160) 27-341 3 27-357 = 27-373) = 27-393) 51-184 


EMS24. 27-163 27-165 39 2h7-167 = 27-350) 3= 27-366 = 27-382) 27-408 = 331-214 

EMS250 gg 27-189 27-191 27-193 27-261 = 27-266 )3=— 27-282) 27-287 = 27-308 39 331-834 
EMS252 27-45 27-52 27-211 927-213 = 27-332) 20S 31-854 

EMS2 27-45 27-132 27-138 = 27-145 27-160 §9= 27-167 927-174 3=— 27-184 = 31-874 

ath $749 27-203 927-261 3=— 27-268 )3=— 27-276 )3=— 27-282 Ss 27-289 3=- 31-884 


31-90" 
27-170 = 27-172) 27-174 = 27-344 = 27-360 39 27-376 3S 27-406) 3=— 331-234 


MS262 3a 
EMS27 27-177 = 27-179 27-182 = 27-186 )=— 27-278 = 27-395 =. 27-396 )=— 27-398 3=— 27-410 331-244 
EMS3 27-219 = 27-231 927-235 27-255 27-259 = 27-280 )§=— 27-283) 27-285 3=— 27-328 3 31-34 


EMS300 27-3 27-8 27-52 27-78 27-114 27-117 27-126 27-177 27-201) 2 27-229) 27-233) 27-238 «= 27-249 =. 27-261 


EMS301 27-4 27-6 7-10 27-13 27-15 27-45 27-123 = 27-132) 27-138 = 27-145 27-160 39 27-167 39 27-174 = 27-184 
27-215 27-257 1-964 

MS302 27-4 27-6 27-8 27-15 31-974 

MS 303 $4 $560 31-984 


994 
MS306 27-6 27-13 27-45 27-215 27-257 37-398 27-302 31-1004 
EMS307 27-8 27-177 }=— 27-201) 27-229 27-233 7-238 27-249 9 27-330 3927-335) Ss 331-1914 


3 
MS310 27-10 27-209 927-314 31-1024 
MS311 27-10 27-13 31-1034 





osm 27-15 27-132 0 27*138 = 27=145 27-160 = 27-147 27-174 1657-184 31-1054 


SEQ 0171 
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CZRMQA0 RMOS/3/2 DSKLS TST 2 
CROSS REFERENCE TABLE (CREF v01-05 ) 


31-284 


27-145 
27-242 
27-156 


D6 
MACRO VO3.01 11-APR=80 14:12:35 PAGE S-11 


27-9 


31-1194 


27-125 


27-276 
27-141 


27-160 
27-246 
27-158 





27-47 
27-150 
27-25 


27-117 


27-169 
2 


27-293 
27-148 


27-167 


27-225 
31-314 


31-1454 
27-227 
27-235 


31-1064 
27-181 
27-27 


27-211 


27-176 


27-282 


27-231 
27-259 


31-1074 
27-29 


27-339 


27-156 
27-291 


27-69 


27-154 
27-266 


27-170 
27-184 
27-332 


27-231 
27-235 


27-251 


27-235 
27-326 


27-31 


27-261 


27-324 


27-235 
27-259 


27-316 


27-259 
31-1494 


31-1084 


27-261 


27-353 
27-298 


27-251 
27-355 


27-172 
31-1254 


27-121 


27-163 
27-270 


27-272 
31-1344 
27-240 
27-280 


27-343 


27-324 


27-282 


27-369 
27-304 


27-295 
27-360 
27-182 


27-251 


27-165 
27-272 


27-274 


27-259 
27-285 


27-348 


27-326 


27-283 


27-387 
27-306 


27-343 
27-371 
27-207 


27-339 


27-170 
27-274 


27-276 


27-326 
27-287 


27-352 


27-328 


27-293 


27-404 
27-308 


27-352 
27-376 
27-211 


27-344 


27-172 
27-278 


27-278 


31-1374 
27-289 


27-359 


31-1474 


31-1174 


31-1204 
27-314 


27-359 
27-391 
27-221 


27-355 


27-182 
27-310 


27-310 


27-328 


27-364 


SEQ 0172 


31-1214 
27-368 
27-395 
27-240 


27-360 


27-191 
31-1278 


27-312 


31-1384 


27-368 


eS SS A ES 


| EMS37 27-203 «= 331-328 


E 14 


» 
~ 
- 
oO 
So 
a 
a) 





as 


EmMS502 
EmMS503 


Es 


CZRMQAO RMOS/3/2 DSKLS TST 2 
|CROSS REFERENCE TABLE (CREF vO1 


27-72 


a ae 
MACRO V03.01 11-APR=80 14:12:35 PAGE $-12 


-05 ) 
27-76 27-94 
27-398 8=31-1514 

7-242 27-244 
11-1534 
27-312 27-332 
27-64 27-324 
31-44 
31-334 
27-337 =—6331- 1584 
27-80 -% 
27-41 27-69 
27-357 27-366 
27-376 27-400 
27-339 = 27-344 
27-385 27-387 
27-339 =. 27-355 
27-213 3927-242 
31-1674 
31-1684 
27-84 27-92 
31-1704 
-69 31-1714 
31-1724 
27-82 27-96 
31-354 
31-1744 
31-1754 
31-374 
31-384 
31-394 
27-249 27-259 
31-54 
31-414 
27-9 27-11 
27-79 27-91 
27-151 27-153 
27-216 27-222 
27-263 =. 27-265 
27-305 27-307 
27-336 §«=—. 27-338 
27-9 27-11 
27-122 = 27-124 
7-11 27-14 
-61 27-73 
27-135 = 27-137 
27-175 27-178 
27-232 3=— 27 = 234 


27-225 
27-248 


27-96 


27-341 
27-373 


27-371 
27-244 


27-102 


27-102 


27-348 
27-316 


27-332 


31-1734 


27-364 
27-328 


27-341 


27-333 


27-357 
27-393 


31-1644 
27-322 


31-1694 


PIMPMNMGMEMEMY_s PEMONMOMNONY 


27-380 
27-332 


27-350 


27-337 


27-366 
27-408 


27-355 
27-400 


27-324 


27-250 


27-396 = =31-1504 
27-337 =—31-1524 


27-357 27-366 


27-346 27-362 


27-373 27-382 
31-1614 


27-360 27-362 
27-402 27-404 


31-344 
27-22 27-24 
27-118 27-120 
7-166 3927-171 
27-245 27-247 
27-279 3=— 27 = 284 
27-317 3827-319 
22 27-24 
31-1824 
-40 27-42 
27-93 27-95 
27-149 = 27-155 
27-190 27-200 


27-373 


27-378 
27-393 


27-364 
27-406 


27-315 


27-382 


27-385 
27-408 


27-369 
27-411 


SEQ 0174 


27-393 27-408 


27-402 = 27-411 
31-1604 


27-371 27-376 
31-1634 


27-202 27-210 

27-254 27-256 

-297 27-299 

27-325 27-327 
27-30 27-32 
27-51 

27-127 = 27-129 








27-334 = 27-336 «= 2:7=338 = 27-340) 927-342 = 27-345 27-349 M6 57-349 


27-351 


27-354 


27-356 


27-358 


27-361 


27-363 
SEQ 0175 


ADOT EAE LS LAG EE SN GREED, 
CZRMQAO RMOS/3/2 DSKLS TST 2 MACRO VO3.01 11-APR-80 14:12:35 PAGE S-13 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0176 


27-365 927-367" 27-370) )=— 27-372) 27-374 «= 27-377 «= 27-379) = 27-381 =. 27-383 = 27-386 «= 27-388 )3=— 27-390) 27-392 27-39% 
27-397 = 27-399) 27-401 = 27-405 27-405 9 27-407 9 27-409) 27-412 «= 31-1834 
7-3 7-57 27-63 27-66 27-68 27-71 27-75 


27-38 2 
27-83 27-87 27-89 27-103 927-105 e7-109) b7?=111 27-118 = 27-188 = 27-190) 3 27-192 27-194 = 27-196 )=— 27-204 
27-206 9827-208 927-258) §=— 27-267 = 27-269) h7=277 = 27-279) = 27-284 = 27-288 )3=— 27-290) 27-292) 31-1844 


EMSS11 27-5 $55. 27-9 27-11 27-14 27-16 27-18 27-20 27-22 27-24 27-26 27-28 27-30 27-32 


2 
27-399 = 27-401 3=— 27-403 27-405 = 27-407 = 27-409 9 27-412 3=— 331-189 


27-344 = 27-346 =. 27-348 = 27-350 )9=- 27-353 = 31-1964 


27-376 =—27-378 )3=— 27-380) 39 27-382 27-385) 3=— 27-387 = 331-198 # 
27-395 = 27-396 = 27-398 = 27-400 )9=— 27-402 0 27-404 = 27-406 )3= 27-408 39 27-411 31-1994 


27-308 27-310 31-524 
27-316 = 27-318 = 27-320 = 27-322) 27-324 = 27-326) 27-346 = 27-362) 27-378 = 31-534 


27-339 = 27-344 = 27-355 27-360) 3=- 27-371 = 27-376 «= 27-389 3=- 27-391) 27-406 = 31-564 


27-41 27-43 27-48 27-69 31-634 


31-654 
31-664 
31-674 





a a - — -- -- - }) 
-_——_———.- 


I 14 


27-38 


~ 
~ 
-_- 
o 
So 
lu 
4) 














CZRMQAO RMOS/3/2 DSKLS TST 2 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


EMT10 
EMT100 





7-25 
27-1324 


7-43 
27-2354 


27-174 


27-1364 


27-198 


27-214 


27-234 


27-254 


27-278 


27-298 


t 
MACRO VO3.01 11-APR~80 14:12:35 PAGE S-14 


SEQ 0178 


EMT16" 27-2384 vig 
SEQ 0179 





L 14 
CZRMQAO RMOS/3/2 DSKLS TST 2 MACRO VO3.01 11=APR=80 14:12:35 PAGE S-15 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0180 


EMT162 27-2404 
EMT163 27-2428 


EMT17 27-314 
EMT170 §=—7=193 39 27-2534 


EMT173 9=7=202 «3927-2594 


-4 
EMT200 7-217 27-2704 


7-52 27-354 


EMT22 7-55 27-374 


MT23 7-58 27-394 


MT24 7-61 27-414 


MT242 27-3414 


EMT242 sen pment hts Sry ee ea 


SEQ 0181 


ae | CON ase iaandaione 
|czamar0 RMO5/3/2 DSKLS TST 2 MACRO VO3.01 11-APR~80 14:12:35 PAGE S-16 
CROSS REFERENCE TABLE (CREF VO01~95 ) SEQ 0182 


EMT25 7-64 27-434 


EMT26 7-67 27-454 


EMT27 7-70 27-484 


EMT275) 7-196 = 27-402 
EMT276 7-130 27-4044 


EMT32 7-79 27-544 ve 


MT42 7-103 27-724 
M143 7-106 7-109 927-744 








EMTS4 7-133 927-928 


SEQ 0183 


owe 
CZRMQAO RMOS/3/2 DSKLS TST 2. MACRO VC3.01 11-APR-80 14:12:35 PAGE S-17 
CROSS REFERENCE TABLE (CREF V01-05 ) SEQ 0184 







8-19* 
12-692 = 12-818 = 12-929) 12=:07) —12-:49) 12-374 = 12-=42- 12-797) 12-824: 19-34 


14-53 14-58 14-63 14-1564 


iy 8-19* 8-21* 8-22" 15-6 15-7 15-8* 15=9* 15-25% 15-46" 15-47" 23-6 
* 


19-128 


12-632 = 12-743) 12-745) 12-813) 12-924) = 12=:02) 12=:44 = 12=;62.)-12-=39 =: 12-783 = s:«12-818 


8-39 8-50 8-56 8-57 10-24 13-20 13-20 18-17 23-10 23-10 
23-10 23-10 $318 23-10 23-10 23-10 23-10 23-10 23-10 23-10 


2 
12-816 12-927 2-:05 12-:47 12-372 12-=40 12-288 12-822 16-19 17-17 


12-?57 25-77 25-78 25-81 25-85 25-86 


“e 9-37 33-268 


SEQ 0185 


ne es 
CZRMQAO RMOS/3/2 DSKLS TST 2 MACRO VO3.01 11-APR-80 14:12:35 PAGE S-18 
CROSS REFERENCE TABLE (CREF v0O1-05 ) SEQ 0186 







14-85 23-5 23-5 
25-59 25-69 25-77 25-78 25-81 25-82 25-85 25-86 
4-9654 


25-58 25-67 25-68 25-70 25-71 25-72 25-73 25-74 25-75 25-76 25-79 25-80 25-83 
25-87 25-88 


12-78 12-93 12-111 12-124 12-165) 12-189) 12-222) 12-238 = 12-428) 3=— 12-432 


8-19 8-19* 


13 
25-58 25-59 25-60 25-62 25-63 25-64 25-67 25-68 25-69 25-70 25-71 25-72 25-73 
25 -77 25-78 25-79 25-80 25-81 25-82 25-83 25-84 25-85 25-86 25-87 


15-564 

15-70# . 

4-83 3-5 23 24-14 24-16 31-118 = 31-178 = 31-179) 31-180) )=—s- 331-181 = 331-182 = 331-183 31-184 
nace 31-187 31-188 31-189 31-189 31-190 


15-844 








| a a ap ae AS Slee <p reet 
LSTRK —6=0# = 10545" 10-53" 12-360 12-;69  12==13 12==35 125990 12-293 12-781 12-816 





SEQ 0187 


eee eae 





G 15 
E S-19 


~APR~80 14:12:35 PAG 


MACRO VO3.01 11 


CROSS REFERENCE TABLE (CREF VO1-05 ) 





CZRMQAO RMOS/3/2 DSKLS TST 2 


SEQ 0188 


MCLK 


N 
EBSEm 
' Y 14 Y 
mcueucun 
Sh ee ee ol | 
FS 
Dan 
Ononr. ™ 
“VAN N 
‘bt ‘ 
noccn o 
Sk wel aol eel | N 
mhRowm 
onvsTKeM Ovo 
“VAN CUCU 
(ttete Ls 
NNNNN OS 
err Ww CUCU 


pope Ng 
Wwe WN 
“VAC 
(settee Lidd 
NNNNK—NOO 
eee — CF 
wooamsr mor 
MOTH Orr 
"“VAETO sm 
(trtepeetde 
ecu cucu 
ere HK Nee 
WNoCM) OM. 
Mout ocmcucy 
VACM oN 
‘oes 't 
ane Cucucy 
eer RK Nee 
owe KBROO 
Ne-onwmMoruc 
sya T er em 
'#teete ‘4 
fev lavla‘iatl delaras 
err KN 
OMOo-—MyTrno 
in Aone ee 
mcucucucucucucy 
Ce cet cel sel cee ol oe 


12=<52.  12-<97 =: 12=A39 


12-;38 


12-30 12-44 


12-25 





H 15 
PCOUNT 15=, 15-698 


| 
| 


SEQ 0189 









CZRMQAQ RMOS/3/2 DSKLS TST 2 
CROSS REFERENCE 


PDA 4-8324 12-825 12-269 
PGE 4-9414 
PGM 4-7624 
PHA 4-83 12-;98  12=<04 
PIP 4-7584 
PIRQ 4 
PIRQVE 4 
PLCLK 15-54 15-584 
FS -8304 12-842 12-881 
2-10 22-13 22-14 
PLSTP 15-82 15-864 
PRO 4-6884 
PR1 4-6884 
PR2 4-6884 
PR3 4-6884 8-23 
PR4 4-6884 
PRS 4-6884 15-64 
PR6 4-6884 8-22 10-40 
PR7 4-6884 15-61 
PS 4-688 4-6884 
PSEL 4-9284 
PSTOP 15-14 15-814 
PSW 
PUTBUF 6-04 
PWRVEC 4 8-19* 8-19 
QUES 9-57 9-73 9-94 
3 4 8-19 8-19* 
RD 4-729H# 12-927 12-:05 
RDCHR 9-12 28 9-43 
RDLIN 23-9 23-104 
RDOC 9-58 9-74 9-95 
RDY 4-9314 
READY 294 13-16 13-20 
CAL 4-7074 
RESREG 14-152 23-104 
RESVEC 
REX 4-8284 
RG 4-8264 19-90 19-95 
4-7304 12-=40 
RIP 4-7124 
RLEASE 4-7094 
RMAS 4-9024 12-58 12-385* 
RMASI 6-04 
—O# 
4-9754 12-54 19-79 
4-9784 
I 6-04 
O 6-04 
6-04 
6-04 12-562* 12-633* 
4-8984 4-97 8-89 
16-19% 17-17% 19-61% 
S1] -O# 12-85* 12-93* 
RMCS10 6-04 12-564* 12-635* 
RMCS2 4-9764 8-82 8-83* 


12-479 


12=<64 


12-883 


15-9 


23-11* 


12-B22 
9-117 


23-104 


a 


* 
8-86 


12-093 


12-<68 


12=>52 


15-16 


23-11% 


9-134 


12-814* 
12-85 


12-124* 
12-816* 
10-47* 


12-094 


12-025 


12=>55 


15-30 


23-11* 


23-8 


12-925* 
12-111* 


12-126 
12-927s 
10-48» 


yl aei* 
MACRO V03.01 11-APR=80 14:12:35 PAGE S-20 
TABLE (CREF V01-05 ) 


12-897 12-A17 
12-A62 =: 12=A64 
12-730 12-737 
15-62 

23-11% 23-11% 
23-104 

12-:03* 12-:45* 
12-119 =12-165* 
12-180* 12-189* 
2-:05* 12-:47* 
12-8 12-15 





12=€21  12=€25 
12-B44 12-851 12-B64 
23-11% 

12-:64% 12==37* 12-285 
12-172* 12-180 12-222 
12-193" 12-199 12-230 
12-:72% 12-=40* 12-788 
12-25. 12-29 «12-36 


SEQ 0190 
12-B70 =12-B73—_ 21-21 
12-B20* 19-79 
12-2350 12-428* 12-548 
12-238* 12-243 
12-B22* 19-85 
12-44 12-56 18-10* 





SEQ 0191 


Say By ss oer 
CZRMQAQ_RMOS/3/2 DSKLS TST 2 MACRO VO3.01 11-APR~80 14:12:35 PAGE S=21 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0192 





/RMCS21 6-0# 

RMCS20 

RMCS3 4-979# 

Rene $30 

|RMDA ~899# 12-79% 12-86 -166* 12-173* 12-181 2-217* 12=223* 12-231 12=265* 12-272 12-382* 12-388  12=404* 


2-1 12-2 
2-482" 12-486 12-501* 19-75* 
181% 12-194% 12-200 12-231* 12-244 12=-272* 12-281 12-388* 12-391 12-410* 12-413 


1 
1 
RMDAI 6-04 12-86* 12-95 : 
12-685* 12-812* 12-922" 12=:00* 12=:42% 12-;60* 12-;61% 12-=35* 12-=36* 12-781* 12-782+ 


RMDB I 
RMDBO 
RMDC as 12-80* 12-87 12-176* 12-184 =12-219* 12-225" 12-233 12-267* 12-274 12-367" 12-371 12=427* 12-431 
12-445* 12-451 9 12-483* 12-497% 12-503 19-76* 
RMDC I 12-87* = =12-97* = 12=184% = 12-191" 12-197" 12-203 12-233*% 12-240* 12-246 12-274% 12-291 12-371% 12-374% 
12-375) 12-431* = =12-435* 12-436 = 12=451*% 12-457" 12-458 12-503* 12-507 12-508 
RMDCO 12-560* 12-631* 12-686* 12-811* 12-923* 12=:01% 12=:43% 12=;59% 12-=34% 12+780* 12-B15* 19-76 
S 4-9004# 8-84 12-467* 12-499* 16-20 16-24 17-18 17-23 19-62 19-66 
RMDSI 6-0# 
RMDSO 6-04 
RMDT 4-9054 10-49 12-446* 12-520 12-540 14-27 
RMDTI 6-U# 
RMDTO 6-04 
RMEC1 4-912# 12-448* 
RMECII *~O# 
RMECIO 6-0 
RMEC2 4-9134 12-62 12-409» 
RMEC2I 6-0# 
RMEC20 6-04 
RMER1 4-901H 12-112" 12-120 12-142* 12-147 12-167% 12-174% 12-182 12-226" 12-234 12-268*% 12-275 12-366* 12-370 
12-426* 12-430 = 12-443* 912-449 = 12-481* 12-485 12-500" 12-577 12-579 12-596 12-606 12-612 12-622 12-650 
12-665 12-704 12-708 12-727 12-731 12-756 12-761 12-C45 12-C52 16-178 17-15% 19-59% 19-83 
RMER1I 12-120* 12-128 =12-147* 12-150" 12-182* 12-195" 12-201 12-234" 12-247 12-275* 12-297 12-370* 12-372 | 
went ye 12-4352* 12-4353 = 12-449% 12-452 12-485* 12-487 
RMER2 4-911 = 12-113" 12-121 = 12-143* 12-148 = 12-169% 12-177* 12-185 12-227" 12-235 12-269% 12-276 12-384% 12-390 | 
12-406* 12-412 12-447 12-466* 12-470 12-484% 12-498% 12-504 16-18% 17-16% 19-60% 19-84» 
RMER2I 6-04 12-121* 12-125" 12-130 = 12-148* 12-152% 12-185* 12-192% 12-198% 12-204 12-235" 12-241* 12-248 12-276 
12-301 = 12-390* 12-396" 12-397 = 12-412* =12-418% 12-419 12-470 12-473* 12-474 12-504* 12-510* 12-511 
RMER2ZO 6-04 
4-909# 12-369* 12-408* 
RMHR I 6-04 
6-04 33-9 
4-9034 12-407* 
Al 6-04 
AO 6-04 


1 4-904H# = 12-144% 12-149 12-368* 12-589* 12-620* ~621* 12-643 644% 12-658* 


: : : 234 : 2 
12-;43* 12-;44% 12-;87*% 12-;88* 12-:89 12-<07 
12-<67 — 12-<76—s 12=<79* 12-<B80* 12-<85 12-<95 


—=59 12-=78% 12-=79* 12-=80 





12=>00* = 12=>01* 12=>02 12=>22* 12=>23* 12=>24 12=>41% 12=>42* 12=>43 12=>57 12=>65* 12=>66* 12=>80* 12=>8 
SEQ 019 


3 







12=-?05* 
12-a99 


10- 
4-8824 
4-8504 


CZRMQAO RMOS/3/2 DSKLS TST 2 
CROSS REFERENCE TABLE (CREF V01-05 ) 


12-207* 


12-561* 
12-386* 


12-52 
12-563* 


23-104 


12-152 
12-521 


12-219* 
12-A21* 
1 3 


12-73 
12-:39 
12-:10 


12-a03 


23-8 


12-526 


12-?20* 


12-689* 


12-106 
12-;56 


12-531 


12-:73 


12-815* 


12-137 
12-=31 
12-;77 


21-64 


12-537 


12-739 12=745* 


12-926* 12-:04* 


12-159 + =12-326 
12-?77 12-B12 
12-=45 12-000 


M15 
MACRO V03.01 11-APR=80 14:12:35 PAGE S-22 


12-2?46* 12-247 


12-987 12=>74* 
12=<29- 12==51 


12=224* 12-232 
12-232* 12-239* 


12-502* 12-505« 
12=:44% 12-362 


12=:46* 12=;71% 


12-518 12-545 
12-B27 920-74 


12-024 
-A7 


20-26* 
21-42* 
12=>78* 
12-=68 


12-266* 
12-245 
12==39% 


12-=38* 


12-556 


12-032 12-068 12-282 
12-A74 


12-273 = 12-383* 12-389 
12-273* 12-285 12-389 
12-?83* 12-B18* 19-77 


12-?87* 12-B21* 19-78 


12-603 12-673 12-748 


SEQ 0194 


12-808 | 





N 15 . 
STACK G~6BBY B19 IZ 1273-12106 12-137 12-159 "12-326 12-518 12-545 124556 12-603 12-673 





12-748 
EQ 0195 


CZRMQ+0 RMOS/3/2 DSKLS TST 2 
CROSS REFERENCE TABLE (CREF VO1-05 ) 





12-808 
8-63 
4-386 
884 


12-919 
8-144 
12-574 


14-17 


5-0 


15-58* 
23-8* 


8-19* 


12-997 
10-34 
12-593 


15-71* 
23-8* 


8-19* 


B 16 
MACRO VO3.01 11-APR-80 14:12:35 PAGE S23 





12-:39 12:56 12==31 12=?77 12-812 

18-22 

15-14% 15-28% 19-94 19-102 20-17 

8-19* 8-19* 8-19* 8-25 10-27 14-17 
23-7 23-8 23-8 23-8* 23-11 23-11* 
10-27 23-8 23-8 23-8 

12=>93 

15-73" 





23-6 


23-6 


23-6 


23-6 


SEQ 0196 


23-6 





TST14 = 12-7488 23-6 


SEQ 0197 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 


CZRMQAO RMOS/3/2 DSKLS TST 2 





KS1Z 8-67" 9-123 9-153 
XXDP 6-04 8-30* 8-33* 8-34 8-36* &=41 8-52 8-77 8-79 SEQ 0199 


F 16 


“~APR=80 14:12:35 PAGE M-1 


SEQ 0200 


MACRO VO03.01 11 


| CROSS REFERENCE TABLE (CREF Vv01-05 ) 


CZRMQAO_RMOS/3/2 DSKLS TST 2 


5-0 


5-0 


5-0 


12-808 
23-104 


12-425 


12-748 


23-10 
12-403 


12-673 


23-10 
12-381 


12-B24 


12-603 


23-10 
12-365 


12-2797 


12-556 


23-10 
12-262 


12-818 =12-929 = 12-:07 12-:49 12=;74 12-=42 


12-692 


12-637 


4-679# 23- 
4-677# 23-6 
4-679# 


4-6884 








G 16 
CZRMQAO RMO5/3/2 DSKLS TST 2 ge V03.01 11-APR-80 14:12:35 PAGE M-2 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


GETER1 94-1744 12-120 12-147 
12-650 12-665 12-704 
2064 12-121 12-148 


GETMR1 4-2544 13. 12-759 


12-:88 12-;00 12-311 
12-221 3912-247 = 12-24 
19-25 19-39 


TOF 4-270# 12-88 13-183 
GETPRI 4 15-59 
GETSN 4-2228 
GETSWR 4 8-25 8-254 
GETWC 4-1344 
GETX 4-1184 
MSG 4- 12-1 12-73 
' 12-919 12-997 12=:39 
NEWTST 12-1 12-73 
12-919 12-997 12-:59 
NWTST - 12-1 2-73 
12-919 «=1e-987 = 1a: 9P 
15-46 15-47 
PUSH é -6 15-7 
PUTAS 4-4664 12-385 
PUTBA 4-3304 19-79 


PUTCS1 mH 12-78 12-111 
PUTDA 4-370# 12-79 12-166 
384 


PUTDC 4-378 12-80 12-176 
PUTDS 4-354# 12-467 12-499 


TER1 § 4-3624 12-112 12-142 
19-59 19-83 
PUTER2 4-3 12-113 ti 
17-16 19-60 19-84 
HR 4~-434H 12-369 12-408 
TLA 4- 12-407 
TMR1 84-4424 12-144 12-368 





12-180 
12-231 


12-233 
19-62 


12-230 
12-272 
12-274 


12-234 


12-137 
12-=31 


12-137 


12-174 
12-177 


12-620 


12-430 
12-412 


12-862 


12-545 


12-545 
12-545 


23-11 
23-11 


17-17 


12-404 
12-445 


12-426 
12-406 


12-658 


12-577 


12-949 
12-=80 
12-B63 


12-596 


12-964 
12=->02 
12-C€20 


12-673 


12-673 
12-673 


23-12 


12-501 
19-76 


12-500 
12-484 


12-663 


12-612 


12-748 


12-748 
12-748 


19-75 


16-17 | 


12-498 


12-664 


SEQ 0201 


12-622 


12=:27 
12=>43 
12-C€94 


17-15 
16-18 


12-681 


caret ey Vee: alee 
12-682 12-698 12-699 12=700 12701-12717, 12=720-12=721.««12*722«12=725 «*12"726-=«12*755 «12757 5470368 
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